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Diagrammi a torta su 
printer plotter 1510 


printer plotter 1520 


Il programma esegue un diagramma a torta 
con tratteggio orizzontale All'inizio viene richie¬ 
sto da tastiera il raggio della "torta" (da 80 
a 150 corrispondente ad una dimensione in 
mm. da 16 a 30); il minimo di 80 è comunque 
solo indicativo e può essere ridotto ma il dia¬ 
gramma risulta poi di difficile comprensione. 
Il titolo del diagramma, pure richiesto da ta¬ 
stiera, viene stampato con caratteri di dimen¬ 
sione 2. cioè 20 per riga. Un titolo con meno 
di 20 caratteri verrà stampato automaticamen¬ 
te al centro, se invece i caratteri sono più di 
20, bisognerà tener conto dell'andata a capo 
e delle opportune spaziature. 

I dati da fornire successivamente al computer 
son il numero delle "fette" da tracciare ed il 
valore percentuale che si vuol loro attribuire. 
I valori devono essere rappresentati da nume¬ 
ri interi in quanto i decimali causano impreci¬ 
sioni o veri e propri errori (per valori inferiori 
ad 1%), inoltre numeri costituiti da più di 2 
o 3 cifre potrebbero uscire dall'area plottabile 
con conseguente sfasatura totale delle scritte. 
Ciascuna fetta si può evidenziare rispondendo 
"S"‘ all'apposita domanda: il computer stac¬ 
cherà la fetta dalla torta e la traccerà più al¬ 
l'esterno lungo la bisettrice del suo angolo. La 


1 rem ************************** 
******* 

2 REM * DIAGRAMMA A TORTA 

* 

3 REM * SU PLOTTER 1520 

* 

4 REM * PATRIZIA E PIETRO SALVA 
RANI * 

5 REM ************************** 
******* 

6 PRINTCHR5(14 7) : FORM = 1T03:PRINT 
:PRINTSPC(2) ; : 

7 PRINT"SCEGLI IL RAGGIO <80-150 
>"; :INPUTRG 

10 CF=1:CI=50 

20 DIM AN(50),A$(50),EV(50),AX(5 
0),AY(50),PC(RG),AC(RG),PR(RG 
),AR(RG) 


somma dei valori percentuali deve essere ugua¬ 
le a 100; in caso contrario essi vengono nuo¬ 
vamente richiesti. 

C'è poi la scelta del tipo di tratteggio (fitto, me¬ 
dio o rado). 

A questo punto il plotter eseguirà da solo tutto 
il lavoro. Se il disegno eseguito ha uno scopo 
esclusivamente grafico-ornamentale, occorre 
dare il RUN STOP subito dopo il completamen¬ 
to del tratteggio per evitare la scritta dei valori 
percentuali. 

Proseguendo, il computer chiederà se si desi¬ 
dera apporre le didascalie. Se la didascalia è 
lunga può essere utile sapere che sulla prima 
riga di essa, il plotter andrà a capo dopo il 29° 
carattere (perché i primi 11 sono usati dalla 
routine) o dopo il 28° se la torta è intera 
( 100 %). 

Semplici modifiche si possono apportare per 
spostare il disegno verso un margine , del foglio 
(il centro della torta corrisponde alla origine re¬ 
lativa fissata nelle linee 230 e 450). È anche 
possibile ottenere il tratteggio di un unico colo¬ 
re sostituendo alla variabile C della linea 3220 
la cifra opportuna (0 = NERO, I =BLU, 2 = 
VERDE e 3 = ROSSO). 


25 DIMPP(RG) ,D$ (20) 

30 DEFFNRQ(P)=SQR(RGT 2-Pf2) 

40 DEFFND (X) = (X/SIN (SM*tr/CI) ) *CO 
S (SM*tt/CI) 

90 PRINTCHRS(147):FORM=1T05:PRIN 
T:NEXT:PRINTSPC(2); 

100 PRINT"TITOLO (20 CARATTERI P 
ER RIGA)":PRINT:PRINT:PRINTS 
PC(2) ; :INPUTTS:PRINT 

105 input"{ 2 spazi Inumerò delle 
FETTE";F 

110 FORK=lTOF:PRINT:PRINT" 

{ 2 SPAZI}VALORE{SPAZI)% DEL 
LA FETTA "K; :INPUTAN(K) :PRIN 
T 

115 PRINTSPC(2)"LA VUOI EVIDENZI 
ARE? <S/N>"; 

120 INPUTU $ : I FU $ = "S"THENEV(K)=1 : 
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GOTO!30 

125 IFU$<>"N"THENl20 
130 NEXT 

140 FORK=1TOF:SM=SM+AN(K) : NEXT 
145 IFINT (SM* 100)01 OOOOTHENl 50 
147 G0T0155 

1 50 PRINT:PRINT:PRINTSPC(2)"DATI 
NON CORRETTI":SM=0:GOTOl05 
155 PRINTCHR$(147):PRINT:PRINT:P 
RINT 

160 PRINTSPC(2)"TRATTEGGIO FITTO 
{ 2 SPAZI)< F >":PRINT 
170 PRINTSPC(2)"TRATTEGGIO MEDIO 
{ 2 SPAZI}< M >":PRINT 
180 PRINTSPC(2)"TRATTEGGIO RADO 
{ 3 SPAZI}< R >" 

1 90 GETQ$: IFQ$ = "F"THENIT=2: GOTO2 
20 

200 IFQ$="M"THENIT=4:GOTO220 
210 IFQ$<>"R"THENl90 
215 IT=6 

220 OPEN4,6:OPENl,6,1:OPEN2,6,2: 
OPEN3,6,3 

222 PRINT# 3,2:IFLEN(T$)> = 20THEN2 
28 

225 W=INT((20-LEN(T$))/2) :FORK = 1 
TOW:PRINT#4," ";:NEXT 
228 PRINT#4, T$ :PRINT#3,1 
230 PRINT#!,"M",240,-200:PRINT#1 
,"I":REM *** CENTRO DELLA TO 
RTA *** 

235 SM=0 

240 FORK=lTOF:SM=SM+AN(K):IFEV(K 
)=1THENGOSUB2000:GOTO260 
250 GOSUB2100 
260 NEXT 
270 C=0 

280 MT=INT(RG/IT):YY=0:MM=MT 
290 FORW = lTOMT:YY=YY+IT 
300 PC (W) =FNRQ (YY) :AC (W) =-PC (W) 
310 NEXT 

320 SM=0:C=2:PRINT#2,0 
330 FORK=1TOF 

332 IFSG=0ANDCF=-1THENSG=1:K=K-1 
: GOTO340 
335 SM=SM+AN(K) 

337 GOSUB3200 

340 IFSM> = 50THENGOSUB 2200:IFF = 1 
THEN375 

345 IFSM=0THEN370 

350 IFSM>25THENGOSUB2600: GOTO370 

360 IFSM< = 25THENGOSUB24 00 
370 NEXT:PRINT#2,0:G0T0380 

375 IFMT=0THEN370 

376 GOTO 340 

380 SM = 0: IFAN(1)<3ANDAN(F)<3THEN 
388 


38 2 FORK=lTOF-1 : IFAN(K)<3ANDAN(K 
+1)<3THEN388 
384 SX=12:SY=15:GOTO390 
388 PRINT#3,0:SX=6:SY=8 
390 FORK=1TOF:SM=SM+AN(K):BI=SM- 
AN(K)/2 

400 PRINT#! , "R" , RG*COS (BI *1T/CI ) + 
AX(K),RG*SIN(BI* /CI)+AY(K) 
410 PRINT#! ,"J", (10+RG) *COS(BI*TT 
/CI) +AX (K) , (1 0+RG) *SIN (BI*TT/ 
CI )+AY(K) 

430 A$=STR$(AN(K))+"%" 

440 IFBI>25ANDBI< 75THENGOSUB 100 
0:GOTO450 

445 IFBI>=75THEN448 

446 GOTO450 

448 PRINT#1 , "R" , ( 1 0+RG) *COS (BI *TT 
/CI)+AX(K) , (1 0+RG) *SIN (BI*Tr/ 
CI)+AY(K)-SY 

450 PRINT#4,A$; :PRINT#1,"M",240, 

. -200 :PRINT#1,"I":NEXT:REM ** 
* CENTRO TORTA *** 

455 PRINT#3,1 :FORW=1TO12 :PRINT#4 
. :NEXT 

460 PRINTCHR$(1 47) :FORM=lT04:PRI 
NT :NEXT:PRINTSPC(2); 

465 PRINT"VUOI LE DIDASCALIE? <S 
/N>" 

470 GETY$:IFY$="N"THEN610 
480 IFY$< >"S"THEN470 
490 FORK=lTOF:PRINT:PRINTSPC(2)" 
DIDASCALIA FETTA"K 
495 INPUTD$(K):IFD$(K)=""THEN495 

500 NEXT 

510 C=2 

520 FORK=lTOF 

530 PRINT#1,"D",0,25 

540 PRINT#! ,"D",40,25 

550 PRINT#!,"D",40,0 

560 PRINT#1,"D",0,0 

570 GOSUB3200 

580 F0RW=ITT025STEPIT:PRINT#1 , "M 
",0,W:PRINT#1,"D",40,W:NEXT: 
PRINT#1,"H" 

590 A$=STR$(AN(K))+"%":IFAN(K)<1 
0THENA$=" "+A$ 

595 PRINT#2,0 

600 PRINT#4,"{ 4 SPAZI}"A$" = "; 

D$(K):PRINT#4:NEXT 
610 OPEN7,6,7:PRINT#7 
620 CLOSE1:CLOSE2:CLOSE3:CLOSE4: 
CLOSE7: END 

1000 REM *** POSIZIONE DELLA SCR 
ITTA *** 

1005 S=LEN(A$)*SX:IFBI>50THEN101 
5 
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1010 PRINT# 1 , "R" , (1 0+RG) *COS (BI*rr 
/CI)+AX(K)-S,(10+RG)*SIN(B 
I *TT/CI ) +AY ( K) : RETURN 
1015 PRINT# 1 , "R", (1 0+RG) *COS (BI*TT 
/CI)+AX(K)-S,(10+RG)*SIN(B 
I*Tt/CI)+AY(K) -SY 
1020 RETURN 

2000 REM *** TRACCIA FETTA EV. * 

★ * 

2005 AX (K) =25*COS ( (SM-AN (K) /2) *TT 
/CI) 

2010 AY(K)=25*SIN( (SM-AN (K)/2)*rt 
/CI) 

2020 SM=SM-AN(K):GOSUB3000:SM=SM 
+AN(K) 

2030 PRINT#!,"R",AX(K),AY(K) 

2040 PRINT#!,"J",X,Y 

2050 GOSUB3100 

2060 PRINT#1,"J",AX(K),AY(K) 

2070 RETURN 

2100 REM *** TRACCIA FETTA NON E 

y ^ * * * 

2105 SM=SM-AN(K):GOSUB3000:SM=SM 
+AN(K) 

2110 IFK=1ANDEV(F)=0THEN PRINT#1 
,"R",X,Y:G0T02150 
2120 IFK>1ANDEV(K—1)=0THEN PRINT 
#1,"R", X, Y:GOTO2150 
21 30 PRINT#1,"R",0,0 
21 40 PRINT# 1 ,"J",X,Y 
2150 GOSUB 3100 
2155 IFF=lTHEN2170 
21 60 PRINT#!,"J",0,0 
2170 RETURN 

2200 REM *** ANGOLO OLTRE 50% ** 

* 

2205 FORW=lTOMT 

2210 AR(W)=AC(W) :IFK=1THENAR(W) = 
AC (W) 

2212 NEXT 

2215 FORW=(MP+1)TOMT:PR(W)=PC(W) 

: NEXT 

2220 MX=MT:GOSUB3500 

2225 IFSM=50ANDK=FTHENMT=0: RETUR 
N 

2230 IFSM = 50THENSG = 1: GOTO 2270 
2240 IFF=1THENPRINT#1,"R",RG+AX( 
K),AY(K):GOTO2260 
2250 PRINT#1,”R",AX(K) ,AY(K) 

2260 PRINT#1,"J",-RG+AX(K),AY(K) 

2270 SM=SM-50:CF = -1 :MT=MM:MA = 0:M 
P=0:MX=0 
2280 RETURN 

2400 REM *** ANGOLO ENTRO 25% ** 

* 


2405 IFSM=25THENMA=MT:MX=MA:FORW 
=lTOMA:AR(W)=0:NEXT:GOTO244 
0 

2410 MA=INT(RG*SIN(SM*tT/CI)/IT) 

2420 MX=MA:GOSUB3300 

2430 FORW=lTOMX:AR(W)=PP(W):NEXT 

2440 FORW=(MP+1)TOMX:PR(W)=PC (W) 

: NEXT 

2450 GOSUB3500 

2460 MP=MA:FORW=lTOMP:PR(W)=AR(W 
):NEXT 
2470 RETURN 

2600 REM *** ANGOLO OLTRE 25% ** 

* 

2605 MA=INT (RG*SIN (SM*rf/CI ) / IT) 
2610 MX=MA:GOSUB3300:MX=MT 
2620 FORW=lTOMX:AR (W) =PP (W) :NEXT 
2630 FORW=(MA+1) TOMX :AR (W) =AC (W) 

: NEXT 

2635 FORW=(MP+1)TOMX:PR(W)=PC (W) 

: NEXT 

2640 GOSUB3500 

2650 MP=MA:FORW=1TOMP:PR(W)=AR (W 
):NEXT 

2660 MT=MA: RETURN 

3000 REM *** CALCOLO X E Y *** 

3010 X=RG*COS ( SM*tt/CI ) +AX ( K) 

3020 Y=RG*SIN(SM*Tt/CI)+AY(K) 

3030 RETURN 

3100 REM *** TRACCIA ARCO *** 
3110 FORH=SM-AN(K)TOSM 
3120 X=RG*COS (H*1T/C I ) +AX ( K) 

3130 Y=RG*SIN(H*tt/CI)+AY(K) 

3140 PRINT#1,"J",X,Y:NEXT 
3150 RETURN 

32 00 REM *** CAMBIO COLORE **» 
3205 IFF=1THEHC=3:GOTO3220 
3207 C=C+1:IFC>3THENC=1 
3210 IFK=FAND(F-INT(F/2, *3,=1 THE 
NC= 1 

3220 PRINT#2,C 
3230 RETURN 

3300 REM ** CALCOLO PUNTI SV PAG 
GIO ** 

3310 YY=0 

3320 FORW=1TOMX:YY=YY+IT 
3330 PP(W)=FND(YY) 

3340 NEXT:RETURN 

3500 REM ***** TRATTEGGIO ***** 
3505 YY=0 

3 510 FORW=l TOMX: YY=YY-rIT 
3520 PRINT#!,"R",PR(K)*CF*AX 1 K,, 
YY*CF+AY(K) 

3530 PRINT#1,"J",AR(W)*CF-AX'K,, 
YY*CF+AY(K) 

3540 NEXT:RETURN 
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Botti rotolanti 


Fate segnare sempre più punti scalando i ri¬ 
piani, ma fate attenzione alle botti che cado¬ 
no. 

Lo scopo di questo gioco è di salire un labirinto 
di ripiani raggiungendo sani e salvi la cima. Ma 
qualcuno (che voi non potete vedere) fa roto¬ 
lare grosse botti nella vostra direzione. 
Partite dalla base dello schermo con il primo 
di quattro giocatori. Usate il tasto A per spo¬ 
starvi verso destra. Quando vi trovate al di sotto 
di una apertura nel ripiano, il tasto p vi per¬ 
mette di saltare al ripiano successivo. Potete 
creare, in qualsiasi momento lo desideriate, una 
apertura premendo il tasto fi, ma in questo 

100 PRINT"{CLR}{CYN}{ 3 GIU'} 

{ 3 SPAZI}STO RIDEFINENDO IL 
SET DI CARATTERI" 

110 GOTO390 
1 20 REM SALTO UOMO 
130 POKEE%,39 

140 FORX=lTOZ%:GOSUB250 :IFPEEK(B 
%(X))>36ANDPEEK(B%(X))<40THE 
N91 0 

145 IFPEEK(B%(X)+D (X))>36ANDPEEK 
(B%(X)+D(X))< 40THEN910 
147 IFPEEK(B%(X)-1)>36ANDPEEK(B% 
(X)- 1)< 40THEN910 
150 GOSUB310 :NEXTX 
160 POKEE%,37 
170 POKES » P 
T80 P=P+3 
190 POKEE%,38 

200 FORX=l TOZ%:GOSUB250:IFPEEK(B 
%(X))>36ANDPEEK(B%(X))< 40THE 
N91 0 

203 IFPEEK(B%(X)+D(X))>36ANDPEEK 
(B%(X)+D(X))<40THEN910 
205 IFPEEK(B%(X)-1)>36ANDPEEK(B% 
(X)-1)< 40THEN910 
210 GOSUB310 :NEXTX 
220 IFPEEK(E%-40)=LLTHEN910 
230 POKEE%,32:E%=E%-40:POKEE%,38 
:POKES,0 :POKEE%,32:E%=E%-40: 
POKEE%,38:RETURN 
240 REM MOVIMENTO BOTTI 
250 POKES+1,0 
260 POKEB%(X) ,C 

270 IFPEEK (B%(X)+1%)=WTHENB%(X)= 
B%(X) +D(X) 


modo abbassate il vostro punteggio. Se raggiun¬ 
gete il ripiano superiore, ricominciate alla ba¬ 
se dello schermo successivo. 

Il punteggio viene aggiornato quando raggiun¬ 
gete il ripiano superiore o quando una botte 
raggiunge il fondo dello schermo. 

Dopo le prime due schermate, il numero dei 
barili viene selezionato casualmente, il che in¬ 
fluenza la velocità del gioco. Inoltre, ogni volta 
che appare una nuova schermata, le apertu¬ 
re tra i ripiani vengono piazzate casualmente. 
A volte troverete un ripiano privo di apertura, 
e dovrete, necessariamente, utilizzare fi per 
aprirvi una strada. 


280 IFPEEK(B%(X))=WTHENB%(X)=B% ( 
X)-T% *D (X) 

290 IFPEEK(B%(X)+1%)<>WTHENB%(X) 
=B%(X)+1% 

300 RETURN 

310 POKEB%(X),LL 

320 IFB%(X)>JTHENGOSUB350 

330 RETURN 

340 REM RIPOSIZIONAMENTO BOTTI 
350 FORX=1TOZ%:POKEB%(X),C:B%(X) 
=SR+INT(RND(X)*T%):NEXTX 
360 REM PUNTI 

370 PRINT"{HOME}{ 23 GIU'}{RVS}P 
UNTI{ 4 SPAZI}{ 4 SIN}"SC;" 

{ 9 SPAZI}{ 6 SIN}"; 

380 FORQ=3TOA+1STEP-1:PRINT" 

{OFF}%"; :NEXT:PRINT"{HOME} 
RETURN 

390 POKE53281 ,0 :POKE53280,6 

400 POKE56,43:CLR 

410 POKE56334,PEEK(56334)AND2 54 : 

PGZEl,PEEK(1)AND251 
420 BL$ = "fPVS}{YEL}{ 40 SPAZI}" - 
430 ALÒ = "{OFF}{PUR}$$$$$$$$$$$$$ 

440 FORI = 0TOl 02 3 :POKE1 + 1 2288,PEE 
K(1+53248):POKEI+l3312,PEEK( 
1+53248):NEXT 
450 POKEl,PEEK(1)OR4 
460 POKE56334,PEEK(56334)ORI 
470 POKE53272,(PEEK(53272)AND240 
) +1 2 

480 FORI=l2544T012544+8*8-1:READ 
A :POKEl,A:NEXT:GOSUBl080 
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490 DATAO,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,56,108,206,174,234,2 
30,108,56 

500 DATA56,108,246,250,134,222,1 
08,56:REM BOTTE 

510 DATA255,153,189,153,255,0,0, 
0:REM TRAVE 

520 DATA56,56,1 6,56,84,1 6,56,40 : 
REM UOMO IN POSIZIONE NORMAL 

E • 

530 DATAI 86,186,84,56,16,16,56,4 
0,0,0,0,56,56,16,124,170 
540 SR= 1 025:K=55296-SR+l 
550 J=SR+820:V=54269:S=54272:FOR 
I=STOV:POKEI,0:NEXTI 
560 POKEV,15:POKES+5,130:POKES+6 
,72 

570 SR=1 025:K=55296-SR+1 

580 PRINT"{CLR}":A=0:SC=0:Z%=4 

590 REM INIZIALIZZAZIONE SCHERMO 


600 PRINT"{CLR}";:BL=80 
61 0 FORI = lTOl0:PRINTBL$; AL$;:NEX 
T:PRINTBLS;BL$;"{HOME}" 

620 X=SR+39:POKES+4,33-.POKES+24, 


1 5 

630 FORB=lTOBL 

640 R=INT(RND(X)*908) 

650 POKEX+R,32 :POKEX+R+K,7 :POKES 
+ 1 ,B+10:NEXT:POKES+4,0 
660 POKES+4,17:FORG=-1TO20 
670 POKEX+G*4 0,36:POKES + 1,50+ (G* 
2):POKEX+G*40+K,5 
680 POKEX+39+(G*40) ,36:POKES+l ,0 
:POKEX+39+(G*40)+K,5:NEXTG:P 


OKES+4,0 

690 REM CICLO DI PREPARAZIONE 
700 E%=J:D ( 1 ) =1 :D(2)=-l:D(3)=1:D 
(4)=-l:L=1:LM=10:RM=18:UP=5: 
BM=4:O=0 

710 W=36:C=32:KB=197:T%=38:I%=40 
•LL=34:D=37:Z=245:P=128:TT%= 


1:TH%=3:GOSUB350 

720 REM CICLO PRINCIPALE DEL GIO 
CO 

730 FORX=lTOZ%:GOSUB250 :IFPEEK(B 
%(X))>36ANDPEEK(B%(X))<40THE 


N91 0 

735 IFPEEK (B%(X)+D(X))>36ANDPEEK 
(B%(X)+D(X))< 40THEN910 
737 REM IFPEEK(B%(X-1)>36ANDPE 
EK(B%(X)-1THEN910 
740 GOSUB310:NEXTX 

750 IFPEEK(E%)=LLTHENE%=E% + 40 : PO 
KEE%+K,7 :POKEE%+I%,36:POKEE% 
+ I%+K,4 :GOT0910 
760 IFPEEK(E%-1 %)=LLTHEN91 0 
770 IFPEEK(E%+1%)=LLTHENPOKEE%,C 
:E%=E%+80:GOT0910 
780 IFLL=34THENLL=35:GOTO800 


790 LL=34 
800 POKEE%,C 

810 IFPEEK(KB)=LMTHENIFPEEK(E%-L 
)<>WTHENE%=E%-L:POKEE%,D:YG= 
-2:GOTO850 

820 IFPEEK(KB)=RMTHENIFPEEK(E%+L 

)<>WTHENE% =E%+L:POKEE%,D:YG= 
2 :GOTO850 

830 IFPEEK(KB)=BMTHENIFPEEK(E%-I 
%)=WTHENPOKEE%-I%,C:SC=SC-5: 

P=P-10 

840 IFPEEK(KB)=UPTHENIFPEEK(E%-I 
%) OWTHENGOSUBl 30 :SC=SC+L+L: 
p=P+3:POKEE% ,D 
850 IFP>ZTHENP=128 
860 POKEE%,D:POKES+4,17:POKES+1 , 
40 

870 IFE%<SRTHENE% =J:TT% =TT%+L:GO 
SUB370:IFSC>35THENZ%=RND(X)* 
4+1 

880 IFTT%>TH%THENGOTO600 
890 GOTO730 

900 REM PERDITA DELL' UOMO 

910 POKES+4,129:N=15 :POKES,39:PO 

KES+1,09:FORQ=1T04:POKEB%(Q) 

,32:NEXT 

920 POKEE%,38 :POKEE%-40,34:GOSUB 
1190:POKEE%,37:GOSUBl190:POK 
EE%,39:GOSUBl190 

930 POKEE%-40,194 :POKEE%,35 :GOSU 
Bl190:POKEE%+l,173:POKEE%-l, 

173:POKEE%+40,194 
940 POKEE%-3 9,206:POKEE%-41,205 
950 POKEE% + 41 , 205:POKEE%+39,206: 
GOSUB1190 

960 POKEE%-120,174:POKEE%-2,174: 
POKEE%+2,174:POKEE%+l20,174: 
GOSUB1190 
970 POKEE%-78,174 
980 POKEE%-78,1 74:POKEE%+78,1 74: 

POKEE%+82,1 74 :GOSUBl 1 90 
990 SC=SC-8:POKES+4,128:A=A+1:GO 
SUB370 

1000 TT%=1:IFA<3GOTO600 
1010 PRINT"{CLR}{ 9 DES} 

{ 9 GIU'}"; 

1015 POKEI98,0:PRINT"{RVS} 

{ 5 SPAZI}FINE GIOCO" 

1018 PRINT'MGIU’ } {RVS} 

{ 14 SPAZI}PUNTI= ";SC 
1020 PRINT"{RVS}(GIU*} 

{ 5 SPAZI}PREMI LA BARRA PE 
R CONTINUARE{ 6 SPAZI}" 

1 030 PRINT"{RVS}(GIU 1 } 

{ 2 SPAZI}QUALSIASI ALTRO T 
ASTO PER TERMINARE" 

1 040 GETYYS:IFYY$=""THENl 040 
1 050 IFYYSO" "THENPRINT" {CLR} " : 
END 
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1060 GOTO580 
1070 REM 

1 080 PRINT"{CLR} { 3 GIU' } ">:PRINT 
TAB(10)"*ISTRUZIONI *":PRXNT 
1 090 PRINTTAB ( 9 ) " { RVS } A{ OFF } MtJO 
VE A SINISTRA”:PRINTTAB(9)" 
{RVS}D{OFF! MUOVE A DESTRA" 
1100 PRINT: PRINTTAB ( 9) " {P.VS}F3 

{OFF} FA SALIRE DI UN PIANO 

II 

1110 PRINTTAB(9)"{RVS}FI{OFF} CA 
NCELLA LO SPAZIO SUPERIORE" 
1120 PRINT:PRINTTAB(9) " 

{ 3 SPAZI}**PUNTI**" 

1130 PRINT:PRINTTAB(9) "2 PER OGN 
I NUOVO PIANO":PRINTTAB(8) " 
-5 USANDO LA PULIZIA" 


1140 PRINT:PRINTTAB(8)"-8 OGNI V 
OLTA CHE VI COLPISCONO" 

1150 PRINT"{ 3 GIU'}":PRINTTAB(1 
3)"PREMI LA BARRA" 

1160 GETXXS: IFXX$ = ""THEHl160 
1170 RETURN 

1180 REM SOTTOPROGRAMMA TEMPO E 
SUONO PER LA PERDITA DELL' 
UOMO 

1190 N=N-2:IFN<0THENN=0 

1 200 IFPEEK(E%)=380RPEEK(E%)=39T 
HENFORQ=1TO50:NEXT 

1210 FORQ=lT025:NEXT:RETURN 
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Apicultore 


Joystick 


Vi troverete a combattere, nel bel mezzo di un 
campo di trifoglio, con delle terribili api gigan¬ 
ti. Cercate di raggiungere l'alveare evitando le 
punture mortali. 

Dopo aver copiato il programma ed averlo 
mandato in esecuzione con una istruzione 
RUN, vi viene presentato il titolo. Quindi, una 
pagina-video di istruzioni vi informa circa i pun¬ 
teggi ottenibili colpendo i vari bersagli del gio¬ 
co e vi chiede di indicare uno dei tre livelli di 
difficoltà. 

Ciascun livello fissa la velocità e la direzione 
delle api operaie e dei granchi mentre vi inse¬ 
guono per il campo di trifoglio. Al livello I, le 
api operaie si limitano a spostamenti verticali 


1 POKE56,48 :POKE55,0:CLR 
5 POKE53280,2 :POKE53281,0 
10 DI MS P ( 8 ) 

20 PRINT"{CLR}" 

30 V=1:SC=0:CM=54272 

40 GOSUB500:GOSUB800:GOSUB600 

41 POKECM+24,15:POKECM+5,17:POKE 

CM+6,241 :POKECM, 0 :POKECM+1 2,1 
7 :POKECM+13,241 

42 POKECM+7,0 
45 GOSUB700 

50 S = PEEK ( 56320) :SW=(SAND4)/4:F= 
(SANDl6)/16 
60 SR=(SAND8)/8 
70 IFF=1THENl30 

80 1=1:A=SH-32:J=Pl:POKECM+8,200 
:POKECM+11,129 

90 J=J+SP(A):IFJ<SAORJ>2023THENl 

20 „ 
100 IFPEEK ( J) O32THENP0KEBN, 32 : G 
OSUB310 :GOTOl20 

110 POKEBN,32 :POKEJ,42 :POKEBBN+C 
M,3 :BN=J: 1 = 1 + 1:IFI<8THEN90 
120 POKEBN,32:POKECM+l1,128 

130 IFSW=1THENIFSR=1THEN200 

140 CC=1:IFSW=0THENCC=-1 

150 POKECM+1,50:POKECM+4,33:IFP1 

=P2THENJ=Pl:GOSUB310 
160 lFSH=40THENXFCC=lTHENCC=-7 
170 IFSH=33THENIFCC=-1THENCC=7 
180 SH=SH+CC:POKEPl,SH:POKECM+4, 
32 


e orizzontali, mentre ai livelli 2 e 3 esse si spo¬ 
stano anche diagonalmente. Al livello 3, dove¬ 
te essere molto rapidi per evitare pungiglioni 
e chele. 

Una volta selezionato il livello di difficoltà, vi 
troverete in un campo di trifoglio, a fianco di 
un gigantesco alveare pieno di fuchi. La prima 
delle otto navi spaziali che vi vengono conces¬ 
se si trova proprio sopra l’alveare, al centro del¬ 
lo schermo. 

Spostando il Joystick verso destra si ottiene una 
rotazione della nave in senso orano, verso si¬ 
nistra in senso antiorario. Premendo il pulsan¬ 
te del Joystick si aziona il laser della nave 
spaziale. 


200 A=SH-32:MN=Pl:Pl=Pl+SP(A):IF 
Pi<SAORPl>SETHENP1=MN 
210 IFPEEK(Pi)<>32THENJ=Pl:POKEM 

N,32:GOSUB300 

220 POKEMN,32 :POKEPl ,SH:IFW=lTHE 
N250 

230 P2 = INT(RND(1 )*21 )+1 783:MC=IN 
T (RND (1 ) *6) +1 :SX=41 :SY=32.:BC 
= 3 :W=1 

240 IFMC=2THENSX=44:SY=43:BC=5 
250 A=SGN(P2-P1):M0=P2:P2=P2-A*H 
:IFABS(P2-P1)>25THENP2=P2-A* 
40 

260 IFP2<SAORP2>SETHENP2 =M0 
270 IFA=0THENJ = P2:GOSUB310 :G0T05 
0 

280 POKECM+P2,MC:POKEMO,SY:POKEP 
2,SX:POKECM+MO,BC: GOTO50 
300 A=PEEK(J):IFA=430RA<41THENPl 
=MN:G0T04 80 

310 F0RI=1T05:POKEJ,42:POKEJ+CM, 
2 :POKECM+7,50:POKECM+11 ,129 

311 POKECM+1,60 :POKECM+4,33:POKE 
J,32:NEXT 

320 POKEJ+CM,3:N=SQ:IFJ=P2THENW= 
0:SC=SC+150 

330 IFPl=P20RA=41THENSQ=SQ-1 : Pi = 
1764:SH=39 

340 IFJ>1903THENSC=SC+50:AQ=AQ-1 
350 SC=SC+50:IFSC>HITHENHI=SC 
370 PRINT"{HOME}{YEL}PUNTI :"SC;T 
AB(33)"NAVI:"SQ:POKEPl+CM,3: 
POKEPl,SH:POKECM+11,128 
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380 

390 


400 

410 


420 

430 

435 

440 
4 50 
460 
470 
480 
500 


51 0 

520 

600 

605 
61 0 
61 5 
620 
625 
630 
635 


640 

650 

660 

670 

700 


I 


IFSQ-NTHEN41 0 

: F0RS = 1 °TO80STEP2 : P 
: P0KECM+ 4 - 33 : FORA= 1 
TOl0:NEXT:NEXT 

f nex5 M+4 ' 32:F0RJ=1T0100: next 


IFAQ=0THENV=V+1: 
{RED}{ 10 GIU’}{ 
E"V:F0RI = 1 T04000 


PRINT"{CLR} 

8 DES}SCIAM 
:NEXT:G0T045 


RI 


IFSQO0THEN480 

PRINT"{HOME}{RED}{ 8 GIU’}"S 
PC(14)"* FINE GARA *" 
PRINTSPC (8) " { 4 GIUMVUOI 
PROVARCI [S O N]" 

GETA$: IFA$ = ""THEN44 0 

™ A f = " S " THE NKE s T0RE : GOTO 2 0 
IFA$O»n"THEN440 
PRINT"{CLR}":END 
return 


POKE3687 9,1 25 :PRINT"{RED} 

{ 7 GIU’}{ 14 DES } * {CYN} APIC 
ULTORE{RED}*" ,AP I C 

PRINT"{GRN}{ 7 GIU 1 } 

{ 14 DES}RECORD ={YEL}"HI 
FORI = 1T03 0 00 :NEXT: RETURN 
PRINT"{CLR}"SPC(5)"{RED} 

{GIU 1 }USATE IL JOYSTICK PER 
GIOCARE" 


PRINTSPC(10)"{BLU}{ 2 GIU 1 } 
API"TAB(20)")"SPC(5)"100" 
PRINTSPC(10)"{GRN}{GIU’}TRIF 
OGLIO"TAB(20)" + "SPC (6)"50" 
PRINTSPC(10)"{RED}{GIU 1 }GRAN 
CHIO"TAB(20)","SPC(5)"200" 
PRINTSPC(10)"{YEL}{GIU’}ALVE 
ARE"TAB(20)”@"SPC(6)"50" 
PRINTSPC(15)"{BLU}{ 2 GIU’} 
LIVELLI. . 

PRINTSPC(12)"{RED}{GIU’}[1 ] 
PRINCIPIANTE" 

PRINTSPC(12)”{GIU’}[2] AVANZ 
ATO":PRINTSPC(12)"{GIU’}[3] 
ESPERTO" 

PRINTSPC(9)"{BLU}{GlU’}SCEGL 
I IL TUO LIVELLO" 

GETA$:IFA$=""THEN650 
H=VAL(A$):IFH<lORH>3THEN650 
RETURN 


PI=1764:SH=39:SQ=8:SA=1064:S 
E=1823 


710 CT=55296:CE=56295:AQ=66:BN=S 
A 

720 PRINT"{CLR}":FORI=CTTOCE:POK 
EI,3:NEXT 

730 FORI=lTOSO :A=INT(RND(1 )*758) 
+SA:POKECM+A,5 :POKEA,43:NEXT 

740 FORI = l 824T01 903 :POKEI+CM,7 :P 
OKE1,0:NEXT 

750 FOR1 = 1 904TO2023:POKEI+CM,INT 
(RND(1)*6)+1:POKEI,41 :NEXT 

760 PRINT"{HOME}{YEL}PUNTI :"SC;T 
AB(33)"NAVI :"SQ:POKEPl+CM,3: 
POKEPl,SH:RETURN 

800 FORI=lT08:READSP(I):NEXT:IFP 
EEK(251)=123THENPOKE53272,29 
:RETURN 

805 PRINT"{ 7 SU}{ 6 DES}STO RID 
EFINENDO I CARATTERI" 

807 POKE251,123 

810 DATAI,41,40,39,-1,-41,-40,-3 
9 

815 POKE56334,PEEK(56334)AND254 : 
POKE1,PEEK(1)AND2 51 

816 FORI = 0TO51 1:POKEI + l 2288,PEEK 
(1+53248):NEXT 

820 FORI = l 2552T01 2623:READA:POKE 
I,A:NEXT:FORI=l2640TO12647:R 
EADA :POKEI,A :NEXT 

830 FORI = 1 2288T01 2295 :POKEI, 255: 
NEXT: FORI = 1 2632T01 2639:READA 
:POKEI,A :NEXT 

835 POKEI ,PEEK(1)OR4 :POKE56334 P 
EEK(56334)ORI 

836 R ° R 2 53272 ' (PEEK(53272 >AND240 


840 

850 

860 

870 

880 

885 

890 


DATA0.96,112,120,207,120,112 
,96,8,92,60,108,244,126,6,1 

?* T ^ 1 6 co 54 ' 254 , 108 ' 56 ' 16 . 16 , 

16,16,58,60,54,47,126,96,128 
DATA0,6,14,30,243,30,14,6,12 
8,96,126,47,54,60,58,16 
DATAI 6,1 6,1 6,56,1 08,254,254, 
16,1,6,126,244,108,60,92,8 
DATA195,231,231,126,60,219,1 

89,36,66,102,129,189,126,219 

,189,36 


DATA24,24,102,102,24,24,60,0 

RETURN 
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Registratore di 
linguaggio macchina 


Avete appena scritto l'ultima routine di mo¬ 
vimento caratteri per il vostro meraviglioso 
video game, e, ovviamente, è completamen¬ 
te in codice macchina per ottenere la giusta 
velocità; ora volete salvarla per usi futuri, ma 
il comando SAVE funziona solo per program¬ 
mi BASIC... Come fare? Questo programma 
è la soluzione. 

Il "Registratore di linguaggio macchina ” ca¬ 
rica automaticamente in memoria una pic¬ 
cola routine in codice macchina, la quale vi 
permette di salvare comodamente qualsiasi 


programma scritto totalmente in linguaggio 
macchina. Ovviamente dovrete fornirgli alcu¬ 
ne informazioni basilari: l’indirizzo di parten¬ 
za del codice macchina e quello fnale oppu¬ 
re il numero di bytes da trasferire sulla me¬ 
moria di massa. Il nome del file che vi sarà 
richiesto non dovrà eccedere in lunghezza i 
dieci caratteri. Una volta salvato il codice 
macchina, potrete ricaricarlo con il comando 
LOAD "nome del file”, 1,1 per l'unità a 
cassette, o LOAD "nome del file", 8, I per il 
disk drive. 


10 PRINT "{CLR){ 9 GIÙ' } 

{ 9 DES}{RVS}REGISTATORE DI L 
.M.{RVS}" 

70 FOR 1=7424 TO 7489 
80 READ X 

90 POKE I,X :NEXT I 
95 FOR 1=1 TO 3000:NEXT I 
100 PRINT"{CLR}{ 10 GIU'} 

{ 6 DES}" 

110 PRINT "{RVS}N{OFF}ASTRO O 
{RVS}D{OFF}ISCO" 

120 GET D$:IF D$ = "" THEN 120 
130 IF D$="N" THEN PRINT"{SU}NAS 
TRO SELEZIONATO":LF=1:DN=1:S 
A=2 

140 IF D$ = "D" THEN PRINT"{SU}DIS 
CO SELEZIONATO":LF=15 :DN = 8:S 
A=1 5 

150 IF D$<>"N" AND D$<>"D" THEN 
PRINT"{SU}":GOTO 120 
160 POKE 7661,LF 
170 POKE 7662,DN 
180 POKE 7663,SA 
200 INPUT"INDIRI ZZO DI PARTENZA 
{ 4 SPAZI}";S 
210 SI=INT(S/256) 

220 S2=S-S1*256 
230 POKE 251,S2 
240 POKE 252,Si 
245 A$ = "" 

250 INPUT"INDIRI ZZO FINALE 
{ 5 SPAZI}";A$ 

260 IF A$ = "" THEN 300 
270 F=VAL(A$) 

280 GOTO 320 


300 INPUT "{SU}NUMERO DI BYTES D 
A SALVARE ";N 
310 F=S+N-1 
320 Fi=INT(F/256) 

330 F2=F-F1*256 

335 IF F<S THEN PRINT"{ 3 SU}":G 
OTO 200 

340 POKE 7659,F2 
350 POKE 7660,FI 
400 INPUT"NOME DEL FILE";N$ 

410 NL=LEN(N$ ) 

420 IF NL< 1 0 THEN 460 
430 PRINT"TROPPO LUNGO" 

440 GOTO 400 

460 POKE 7648,NL 

470 FOR 1=1 TO NL 

480 POKE 7648+1,ASC(MID$(N$,I,1) 

) 

490 NEXT I 

500 IF D$ = "D" THEN PRINT "PREMI 
UN TASTO PER SALVARE" 

505 IF D$ = "N" THEN PRINT"RIAWOL 
Gl IL NASTRO E PREMI UN TAST 
O" 

510 GET A$ 




530 SYS 7472 
560 END 

1000 DATA 169,192,32,144,255,173 
,237,29,174,238,29,172,239, 

29,32,186,255,173 

1100 DATA 224,29,162,225,160,29, 
32,189,255,96,234,234,234,2 
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1200 DATA 169,0,32,144,255,96,23 
4,234,234,234,234,234,234,2 
34,234,234 


1300 DATA 32,0,29,169,251,174,23 
5,29,172,236,29,32,216,255, 
32,32,29,0 
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Gestione degli errori 


Questa utile routine cerca di rimediare alla 
mancanza nel VIC 20 e nel C64 dell'istruzione 
"ON ERROR GOTO", presente invece in altri 
computer. Includete le linee da 200 a 4020 
nei vostri programmi, poi settate la variabile 
ET con il numero di linea al quale desiderate 
far proseguire il programma dopo che venga 
scoperto un eventuale errore, quindi date 
un'istruzione GOSUB 3050. 


Programma I 

1 0 REM ON ERROR GOTO 50 
20 ET=50:GOSUB3050 
30 REM GENERA UN ERRORE 
40 FORI=l0TO0STEP-1:PRINT"1/"I"= 
"1/I:NEXTI 

50 PRINT:PRINT"IL PROGRAMMA CONT 
INUA" 


Il programma I è dimostrativo e va caricato 
"fuso" insieme al programma 2. Come si ve¬ 
de, il messaggio di errore (division by zero in 
40) non viene visualizzato ed il programma 
continua tranquillamente a "girare" senza in¬ 
terrompersi. 

Se invece si ponesse la variabile ET =200 nella 
linea 20, verrebbe visualizzato il messaggio 
con fermata del programma. 


60 PRINT"MALGRADO SI SIA VERIFIC 
ATO UN" 

70 PRINT"ERRORE, DI DIVISIONE PE 
R ZERO" 

80 PRINT"NELLA LINEA 40" 

90 END 


Programma 2 

200 REM ROUTINE ERRORI 
210 REM CALCOLA LA LINEA ED IL M 
ESSAGGIO 
220 GOSUB4000 

230 PRINT:PRINT"SCOPERTO UN ERRO 
RE! " 

240 PRINTERS:PRINT"ERRORE NELLA 
LINEA"LN 
250 END 

3000 DATAI 69, 58,1 41 ,0,3,1 69, 1 96, 
141,1,3,165,58,141,123 
3010 DATA3,201 ,255,240,39,1 65,57 
,141,122,3,142,121,3,160 
3020 DATA0,185,124,3,153,0,2,240 
,3,200,208,245,162,255 
3030 DATAI 60,1 ,76,1 34,1 96,1 69,60 
,141,0,3,169,3,141,1 


3040 DATA3,96,108,0,3 
3050 RESTORE:FORAD = 82 8T08 8 8 : READ 
VA:POKEAD,VA:NEXTAD 

3060 T$ = "GOTO"+STR$(ET)+CHR$(0) 
3070 FORAD=lTOLEN(T$):POKE891+AD 
,ASC(MID$(T$,AD,1)):NEXTAD 

3080 SYS87 5 : RETURN 
4000 EN=PEEK(889):EA=PEEK(49958+ 
2 *EN)+256*PEEK(49959 + 2*EN): 
ER$="" 

4010 ER$=ER$+CHR$(PEEK(EA) ANDl 27 
):IFPEEK(EA)<128THENEA=EA+1 
:GOTO4010 

4020 LN=PEEK(890)+256*PEEK(891): 
RETURN 
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Il predatore del 
programma perduto 


Con questa utility registrata su nastro o di¬ 
sco, non dovrete più preoccuparvi se per 
sbaglio vi scappa un NEW e perdete il vostro 
programma BASIC. Vi basterà caricare que¬ 
sto programma, battere SYS 850, e riotterre¬ 
te il vostro programma creduto irrimediabil¬ 
mente sia sul VIC 20 che sul C64. 

Come funziona? Fortunatamente né il VIC né 
il C64 cancellano i programmi in memoria 
dopo una istruzione NEW: semplicemente 
resettano alcuni puntatori. Questo program¬ 
ma in linguaggio macchina si preoccupa di ri- 
sistemarli così com'erano prima dell'impe¬ 
tuoso NEW. 

La prima cosa da fare è digitare attentamen¬ 
te il programma, con particolare attenzione 
per le istruzioni DATA. Date quindi il RUN e 
poi battete NEW. Ora inserite una cassetta 


nel registratore e digitate il seguente coman¬ 
do senza numero di linea: 

Ai = FORA = 833T0938:Ai=Ai + 
CH Ri (PEEK(A)): NEXT:SAVEAS 

Comparirà il messaggio ' 'PRESS RECORD & 
PLAY ON TAPE", eseguitelo e non preoccu¬ 
patevi dei caratteri grafici che appaiono du¬ 
rante il SAVE. Una volta salvato, testatelo di¬ 
gitando o caricando un qualunque program¬ 
ma BASIC e poi dando il NEW. Caricate 
quindi questa utility e digitate SYS 850. Ese¬ 
guite o listate quindi il programma BASIC 
creduto perso per rendervi conto che tutto 
funziona. Poiché la routine risiede nel buffer 
cassette, può essere usata fino ache un altro 
programma non venga salvato o caricato dal 
nastro. 


10 1=525 

20 READ A :IF A= 2 56 THEN 40 
30 POKE I,A:1=1+1:GOTO 20 
40 POKE 43,525 AND 255:POKE 44,2 
:REM SETTA L’INIZIO DELLA MEM 
ORIA 

50 POKE 45,578 AND 255:POKE 46,2 
:REM SETTA LA FINE DELLA MEMO 
RIA 

60 CLR : SAVE"0:UNNEW",8 
70 REM PER IL NASTRO USARE: SAVE 
"UNNEW",1,1 

525 DATA 160,3,200,177,43,208,25 
1 


532 DATA 
3 

539 DATA 
0 

546 DATA 
553 DATA 

560 DATA 
00 

567 DATA 
574 DATA 

MJ \\J . 


200,200,152,160,0,145,4 

165,44,200,145,43,133,6 

160,0,132,59,162,0,200 

208,2,230,60,177,59,208 

245,232,224,3,208,242,2 

208,2,230,60,132,45,164 

60,132,46,96,256 
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Prigioniero marziano 


Questo è un gioco di tipo "Adventure", uno 
di quelli cioè in cui sullo schermo non com¬ 
paiono disegni e animazioni ma soltanto fra¬ 
si: il computer vi descrive una situazione e 
voi gli dite cosa volete fare. Ma qual e l'av¬ 
ventura? 

Senza preavviso i marziani hanno scatenato 
una guerra contro la terra. Vi hanno cattura¬ 
to e vi tengono prigionieri su un incrociatore 
spaziale, il quale sto per attaccare la Terra 
con un 'arma segreta che può neutralizzarne 
tutte le difese. Il vostro compito e di distrug¬ 
gere la nave assieme all'arma che trasporta 
e mettervi in salvo. 

Dovete esplorare i vari locali dell'incrociato 
re: in ogni stanza il computer vi descrive ciò 
che vi circonda ed elenca gli oggetti presenti 


Di volta m volta dovete dare dei semplici co¬ 
mandi. usando pochi verbi come "prendi", e 
"apri". Per andare verso nord, potete batte¬ 
re "vai a nord", "nord" o semplicemente 
"n". Con il comando " inventario" potete 
sapere quali oggetti portare con voi. Ogni pa¬ 
rola può essere abbreviata usando solo le pri¬ 
me tre lettere 

Il programma funziona sia sul VIC in versione 
base che sul 64; dato però che / messaggi so¬ 
no previsti per le 22 colonne del VIC. per uti- 
:zzare il gioco sul 64 è necessario commu¬ 
tare" il suo schermo da 40 a 22 colonne 
Ciò è realizzato dal programmino che vi pre¬ 
sentiamo a parte, contenente una routine in 
nguaggio macchina che effettua la commu¬ 
tazione. 


Formatta tore a 13 colonne 


1 oo 

1 1 0 
1 20 

1 30 
1 40 
1 50 

1 60 


PRINT"{CLR}{ 6 SPAZI}{RVS}ST 

AMPA A 22 COLONNE PER C-64": 
PRINT 

PRINT"LETTURA DATI" 

FORI=82 8 TO 8 81 : READA:CK = CK+A: 
POKEI , A :NEXT:POKEl 79.883AND2 

IFCK< >60 32THENPRI NT"ERRORE N 
EI DATI:RICONTROLLARE.":END 
PRINT"{GIU 1 }PRIMA...":SYS82 8 


:PRI NT"DOPO.. 

PRINT"{GIU'}PREMI RUN/STOP-R 
ESTOREPER RITORNARE A 40 
{ 4 SPAZI1COLONNE. " 

PRI NT" {GIU 1 } IMPOSTA '.RVS ;3Y.. 

82 8{OFF} PER" :PRINT"RI ATTIV 
ARE, SE": PRINT" NECESSARIO." 


170 PRINT"{GIU 1 }NON FARE EDITING 
SU":PRINT"SCHERMO A 22 COLO 
NNE. " 

1000 DATAI 69,71 , 1 41 , 38, 3, 1 69, 3,’ 
41 

1010 DATA39,3,96,72,152,72,1 33,"' 
2 

1 020 DATA56, 32,240,255,192,9,1'6 
,3 

1030 DATA76,100,3,192,31,144,15, 

1 69 

1 040 DATAI 3, 32,202,241 , 56, 32,240 

,255 

1050 DATAI 60,9,24,32,240,255,104 

,170 

1 060 DATAI 04,1 68, 1 04,76,202,241 


Programma 

10 GOSUB5000 

100 GOSUBÌ 000 : I FR=6ANUU = 0THKNR- 
: GOTO100 

110 GQSUB2000:PRINT 


120 ONVGOSUB3000,3000,3000,3000 , 

3100,3200,3300,3400,3500,360 
0,3700,3800,3900 
125 IFV=14THENGOSUB3900 
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130 GOTO!00 

1000 PRINT:ONRGOSUBl100,1200,130 
,_ 0,1400,1500,1600,1700,1800 

1005 IFI %(4)= -1ANDI%(6)=-1THENPR 
INTNS$ 

1010 PRINT"{GIU' }{CYN}OGGETTI : 

{WHT}"; 

1 020 FORL=1T08: IFI%(L)=RTHENPRIN 

TTAB(8);N$(L) 

1030 NEXT:PRINT:RETURN 
1100 PRINT"SEI IN UNA CELLA DI 
{ 3 SPAZI}PRIGIONE." 

1110 IFRND(1)>.2 5THENRETURN 
1120 G=1:PRINT"UNA GUARDIA DISAT 
TIVA IL CAMPO DI FORZA ED 
{ (( 2 SPAZI} ENTRA NELLA CELLA 

1130 C%(0,1)=2 : RETURN 
1200 PRINT"SEI IN UN SALONE.":RE 
TURN 

1300 PRINT-TI TROVI NELLA SALA 

{ 3, SPAZI}MACCHINE.":RETURN 

1400 PRINT"SEI IN UNA STANZETTA. 

SUL MURO C'E' UN CAR- TELL 
O." 

1410 IFI%(4)=-1THENPRINTNS$ 

1420 IFI%(6)=-lTHEN4500 
1430 RETURN 

1500 PRINT"SEI NELLA DISPENSA.": 
RETURN 

1600 PRINT"SEI NELLA PARTE NORD 
{ 2 SPAZI}DEL SALONE." 

1610 IFU=1THENPRINT"LE GUARDIE N 
ON TI NO- TANO." 

1620 IFU=0THENPRINT"LE GUARDIE T 
I RIPORTA-NO IN CELLA.":G=0 

1630 RETURN 

1700 PRINT"TI TROVI IN UNA GRAND 
ESTANZ A. " : RETURN 
1300 PRINT"TI TROVI IN UNO STRAN 
OGIARDINO DOVE VIENE 
{ 3 SPAZI}COLTIVATO IL CIBO 
PER" 

1805 PRINT"L’EQUIPAGGIO." 

1810 IFI%(4)=-lTHENPRINTNS$ 

1820 RETURN 

2 000 C$= rf ":N=0:V=0:INPUT"{GIU' }C 

OMANDO{GRN}";C$:PRINT"{WHT} 
":IFC$=""THEN2000 
2015 P=0:IFLEN(C$)<2THEN2050 
2020 FORL=2TOLEN(C$)-1 
2030 IFMID$(C$,L,1)=" "THENP=L 
2040 NEXT 

2050 IFP=0THENV$=C$:N$="" 

2060 IFP>0ANDP=LEN(C$)THENV$ =C$: 
N$ = " " 


2070 IFP>0ANDP<LEN(C$)THENV$=LEF 

T$ (C$,P-1) :N$ =RIGHT$(C$,LEN 
(C$)-P) 

2080 F0RL=1T01 4: IFLEFT$ (V$,3)=V$ 

(L)THENV=L 

2100 NEXT:FORL=lT08:IFLEFT$(N$, 3 
)=A$ (L)THENN=L 

2120 NEXT:IFN>0ANDV>0THENRETURN 

2130 IFN=0ANDV>0ANDN$=""THENRETU 
RN 

2135 IFN=0ANDV= 5THENRETURN 
2140 PRI'NT'UGIU'}NON CAPISCO.":G 
OTO2000 

3000 N$=V$:GOT03110 
3100 N$ =LEFT$(N$,1) 

3110 IFR=1 ANDN$ = "E"ANDG=0THENPRI 
NT"IL CAMPO DI FORZA TI 
{ 2 SPAZI}FERMA.":RETURN 
31 20 IFROI ORN$<> "E"ORG=0THEN31 3 
0 

3125 PRINT"MENTRE LASCI LA CELLA 
IL CAMPO DI FORZA VIE-NE R 
IATTIVATO, INTRAP-"; 

3127 PRINT"POLANDO LA GUARDIA." 

3130 IFR=2ANDN$="E"ANDC%(1,1)=0A 
NDI%(8)>-1THENPRINT"LA PORT 
A CHIUSA TI{ 4 SPAZI}FERMA. 

Il 

3135 IFR=2ANDN$="E"ANDC%(1,1)=0A 
NDI%(8)>-1THENRETURN 

31 40 IFR<>20RN$O"E"0RC% (1 ,1 ) >0T 
HEN3150 

3145 PRINT"APRI LA PORTA CON LA 
{ 2 SPAZI}CHIAVE." :C% (1,1)= 
5:N$(7)="PORTA APERTA" 

3150 IFN$="N"THEND=0 
3160 IFN$="E"THEND=1 
3165 IFN$="S"THEND=2 
3170 IFN$ = "0"THEND= 3 
3175 IFC%(R-l,D)=0THENPRINTCN$:R 
E TURN 

3180 PRINT"OK":R=C%(R-1,D): RETUR 
N 

3200 IFN=10RN=20RN=30RN=7THENPRI 
NT"NON PUOI SOLLEVARLO!":RE 
TURN 

3203 IFI%(N)<>RTHENPRINT"NON E' 
QUI.":RETURN 
3205 IFN=5THEN3720 
3210 PRINT"OK": 1%(N)=-l:RETURN 
3300 PRINT"OK": 1%(N)=R:RETURN 
3400 PRINT"HAI CON TE:" 

3410 FORL=1T08:IFI%(L)=-1THENPRI 
NTTAB(3)}N$(L) 

3420 NEXT:RETURN 

3500 IFNO30RRO4THENPRINTCN$ :RE 
TURN 
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3510 PRINT"COMBUSTIBILE ATOMICO 
{ 2 SPAZI}NELLE VICINANZE. 

{ 6 SPAZI}NON PORTARE MATER 
I ALI " 

3520 PRINT"RADIOATTIVI IN QUESTA 
STANZA. " -.RETURN 

3600 IFN070RR0 20RI% (8) >-1 THENP 
RINTCN$: RETURN 
3610 N$ = "E":G0T03145 
3700 IFI% (5) <>RTHENPRINTCN$:RETU 
RN 

3720 PRINT"ORA INDOSSI L'UNIFOR¬ 
ME.":I% (5) =-1:U=1: RETURN 
3800 IFN<>6THENPRINTRI$ :RETURN 
3810 PRINT"IN BREVE TEMPO TI 

{ 5 SPAZI}SENTI MALE E MUOR 
I.":GOTO4600 

3900 IFN= 2THENPRINT"LA GUARDIA T 
I SPARA.":GOTO4600 
3910 PRINTCNS: RETURN 
4500 PRINT 

4505 PRINT"LA PIANTA RADIOATTIVA 
EMETTE NEUTRONI SUFFI-CIEN 
TI PER .INIZIARE" 

4510 PRINT"UNA REAZIONE A CATENA 
.LA NAVE ESPLODE." 

4515 PRINT"TU RIESCI A FUGGIRE S 
UUNA NAVICELLA DI SAL- VATA 
GGIO. " 

4520 PRINT"{GIU'}{PUR}HAI VINTO! 
":GOT04 61 0 

4600 PRINT" {GIU 1 }{PUR}HAI PERSO! 

tl 


4610 PRINT"{ 2 GIU'}{GRN}GIOCHI 
ANCORA?" 

4620 GETN$:IFN$="S"THENRUN 

4630 IFN$="N"THENEND 

4640 GOTO4620 

5000 POKE36879,8:PRINT"{CLR} 

{GRN}{RVS} PRIGIONIERO MARZ 
IANO {OFF}" 

5080 DIMV$(14) ,C% (7,3) , 1% (8) ,N$( 
8),A$(8) 

5090 R= 1 : FORL= 1 TOl 4 : READVS (L) : NE 
XT 

5100 FORL=0TO7:READC%(L,0),C%(L, 

1),C%(L,2),C%(L,3):NEXT 

5110 FORL=lT08:READN$(L),A$(L),I 
%(L):NEXT 

5115 CN$ = "NON PUOI.":RI$ = "NON FA 
RE LO STUPIDO!" 

5120 NS$ = " IL CONTATORE GEIGER 

{ 3 SPAZI}SEGNALA RADIAZION 
I.":RETURN 

6000 DATAN,E,S,0,VAI,PRE,SIT,INV 
,LEG,APR,IND,MAN,UCC,COL 

6010 DATA0,0,0,0,6,0,3,0,2,4,0,0 
,0,0,0,3,0,0,0,2,7,0,2,0,0, 
8,6,0,0,0,0,7 

6020 DATACAMPO DI FORZA,CAM,1,GU 
ARDIE,GUA,6,CARTELLO,CAR,4, 
CONT. GEIGER,CON,5 

6030 DATAUNIFORME,UNI,5,PIANTA,? 
IA,8,PORTA CHIUSA,POR,2,CHI 
AVE LASER,CHI,3 
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Quattro 


(oy%lKk 


lutto e ina ° ^ ttro sono necesson IO- 

^ro^ C0 ' ^ b ° ttefS ' Contro 11 ^mpo e 
P^ommor* uno sene d. mosse che v, per 

^one WcTh'lT d,S€gn ° “"Ponilo 

none VIC nchiede una espansione di me 
3 K i 15 ^ 

oono / uso di joystick 

d*Z7J” Qum °" C0TO " -* "p™ 

e , u disegno generato dal calcolatore 

'cercanti!) 7"°' n0mer ° fws,b,te <* mosse e 
tlmZa COmptet0ne 11 C0 ™t>«0 nel m.nor 

w fl < J pare uno ^ cose/te dello 
scacchiera di poco, sullo frustro dello scher 


m °- P er cambiare il disegno che vi appare, 
usate il joystick per muovere il cursore nella 
(.osella desiderata, quindi premete il pulsan- 
fe sul joystick Parte del vostro disegno verrà 
cancellata o tracciata in base al fatto che il 
c ursore si trovi al centro, su di un bordo o in 
un angolo della scacchiera I diversi modi in 
cui il disegno può mutare sono mostrati sotto 
torma di esempi sullo schermo. 

Quando siete riusciti a ricomporre il disegno 
campione, viene mostrato il vostro punteg 
gio. calcolato m base al numero di mosse ed 
al tempo impiegato. 


IO PRINT"(CLR)"-pokp5Iì 

:POKE2l1,U-Às-"onìJii«Ì PRINT 

646,0 5 QUATTRO": POKE 

15 PRINTTAB(15); 

2° TORTI-1TOLEH(AS):Primtm I0$(A s 
• D ; : FORT*1T0200:NFXT- 
: FORT*1T0500:NEXT U ’ NEXT - NEXT 
30 RN•16 : REM PER AVERE UNA SCACC 
HIF.RA CASUALE CAMBIARE LA 
A IN RN.RND(0)•15*1 
<0 PRI NT" (CLR )";TAB(26) .-"TEMPO-" 
4S PRINT" (GIU 1 ){ 14 SIN )MOSSE: "; 

MO 

50 PRINT"! 3 CIUM! 14 SIN) BORO I 
I 3 SPAZI )(<D>| |< B> ]" 

53 PRINT»! 3 GIU 1 )! 14 SIN)ANGOL 
j( 2 SPAZIIlRVS) (OFF)|<V>| 
(GIU*)( 2 SIN)!<v>)" 

54 PRINT"! 2 GIU 1 )! 14 SINlINTER 
NI (SU)!<D>)(GIU 1 )(SIN)(RVS) 

I< F>) (OFF)(<V>)" 

100 GOTO140 

110 FORL*ITO4 :FORB*ITO4 :0(L,B)«P 
EEK(C(L,B))- 9 :NEXTB:NEXTL:RE 
TURN 

115 FORT-1T0500:NEXT 
120 FORL-ITO4 :FORB*ITO4 :1FB(L,B) 
< >0(L,B)THENRETURN 
130 NEXT:NEXT:SC-VAL(TI$)/16*MO/ 
5 :PRI NT"(CLR)( 6GIU')"TAB(1 
0)"L'HAI RICOSTRUITO!(GIU*)" 

135 PRINTTAB(15);"PUNTIINT(SC 
) ; "(GIU' )" 

136 PRINTTAB(11);"VUOI GIOCARE A 
NCORA (S/N)?" 

137 IFPEEK ( 197) O39AN0PEEK ( 197) < 
>13THEN137 


138 IFPEEK(197)"13THENRUN 

139 END 

140 C0.54272:POKE53281.12:POKE53 
280,0 

150 FORJ■0TO20STEP5 
160 FORT»1024TO1804STEP40:POKET* 
J 9 160 

170 POKET* 54272*J,1 :NEXT:NEXT 
180 FORJ.0TO20STEP5 

190 FORT.1024T01044:POKET*J*40.1 
... 60:POKET*54272*J*40,1 
200 NEXT:NEXT 

210 kp?si7 6 oA 79:POKE1569 * CO ' 7:PO 

... *E1577,80:POKE1577*CO,7 

U97 l \\\‘ Il !1 POKE56 1 6 1 • 7 : POKE 
1897,l22 :POKE1897*CO,7 

u! T ^r i8,,sTEp, ° ;M “T 1 

iÀ« P0 S E T *CO, 7 : POKET* 8,106- 
p OKET*8*CO,7 ; NEXT 

KEtTJ 20 ? li?•on^ 1P0XET '319 : PO 
T* 320 *CO,7 :NEXT^ T+CO ' 7:POKE 
250 FORJ-0TO4STEP2: FORT-161lTOl8 

ÌTn^; poketo ' 66:po «^ 

♦J. 7-.NEXT: NEXT 

260 FORT»1650TO1656:POKET,64•POK 

!co?? ,7:poKET * 8o ' M = p ° x "r?o 

270 n?x^ T * 160 ' 64:POKET+160 *CO,7: 

280 TORU.1T04:F0RT.1T04:C(T.U)-1 
528*2*T*80*U:NEXTT:NEXTU 

inn DA ™ 106 ' 1 IH. 1116,1121 
300 FORT-1T04:READ E : A(T,1)-E : A( 
T,2)«E + 200: A(T,3)*E*4 00: A(T, 
4)*E*600:NEXT 

310 GOSUB570: X*1 :y-1:GOSUB500 
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315 TI$="000000" 

320 JO=15-(PEEK(56320)AND15):IFJ 
0< >1ANDJCK > 2ANDJCK > 4ANDJO< > 8 
THEND = 5 : GOTO 340 
330 D=LOG(JO)/LOG(2)+1 
340 ONDGOSUB390,410,450,430,470 
350 IF(PEEK(56320)AND16)THEN3 75 
360 GOSUB910:MO=MO+l 
370 IF(PEEK(56320)AND16)=0THEN37 
0 

375 PRINT"{HOME)";TAB(32);RIGHT$ 
(TI$,5);"{GIU'}{ 5 SIN)";MO 
380 GOTO320 
390 IFY-1< = 0THEN 4 80 
400 Y=Y-1:GOSUB500: RETURN 
410 IFY+1 = 5THEN4 80 
420 Y=Y+1:GOSUB500: RETURN 
430 IFX+1 = 5THEN4 80 
440 X=X+1:GOSUB500:RETURN 
450 IFX-1<=0THEN480 
460 X=X-1:GOSUB500:RETURN 
470 GOSUB500:RETURN 
480 RETURN 
490 GOTO320 

500 Pl=PEEK( A ( X , Y)):P2=PEEK( A ( X , 
Y)+1):P3=PEEK(A(X,Y)+40):P4= 
PEEK(A(X,Y)+41) 

510 POKEA(X,Y),213:POKEA(X,Y)+l, 
201:POKEA(X,Y)+40,202:POKEA( 
X,Y)+41,203 

520 POKEA(X,Y)+CO,2 :POKEA(X,Y)+1 
+CO,2:POKEA(X,Y)+40+CO,2:POK 
EA(X,Y)+41+CO,2 

530 POKEA(X,Y) ,PI :POKEA(X,Y)+1,P 
2 :POKEA(X,Y)+40,P3:POKEA(X,Y 
)+41,P4 

535 P1=0:P2=0:P3=0:P4=0:GOSUB110 
:GOSUB120 
540 RETURN 

570 WE=INT(RND(0)* 8)+1:FORJ = 1TOW 
E* RN:READQ:NEXT 

580 FORY=1T04:FORX=1T04:READQ:IF 
Q=0THEN600 
590 GOSUB610 

600 NEXTX:NEXTY:GOSUB640:GOSUB68 
0 : RETURN 

610 POKEA(X,Y),77:POKEA(X,Y)+1,7 
8 :POKEA(X,Y)+40,78 :POKEA(X,Y 
)+41,77 

620 POKEA(X,Y)+CO,2 :POKEA(X,Y)+1 
+CO,2:POKEA(X,Y)+40+CO,2:POK 
EA(X,Y)+41+CO,2 
630 RETURN 

640 FORX=lT04:FORY=lT04:B(X,Y)=P 
EE K(A(X , Y ) ) 

650 IFB(X,Y)= 32THENB(X,Y)=B(X,Y) 
- 9 :GOTO670 
660 B(X,Y)=B(X,Y) 

670 NEXTY:NEXTX:RETURN 
680 FORY=1T04:FORX=1T04:READP 
690 IFPTHENPOKEC(X,Y) ,86 :POKEC(X 
,Y)+CO , 1 


700 NEXTX:NEXTY:RETURN 

710 DATAI,1,1,1, 

1, 1,1,1,1 
720 DATA0,0,0,0, 

0, 0,0,0,0 
730 DATA0,1,1,0, 

1, 0,1,1,0 
740 DATAI,1,1,1, 

1, 1,1,1,1 
750 DATAI,0,0,1, 

0, 1,0,0,1 
760 DATAI,1,1,1, 

0, 1,1,1,1 
770 DATA0,0,0,1, 

1, 0,0,0,1 
775 DATAI,0,0,1, 

0, 1,0,0,1 
780 DATA0,0,0,0, 

0, 0,0,0,0 
790 DATAO,0,0,0, 

1, 0,0,0,0 
800 REM INVERSO 
810 POKEA(C,D),109-PEEK(A(C,D)): 
POKEA(C,D)+1,110-(PEEK(A(C,D 
)+l) ) 

820 POKEA(C,D)+40,110-PEEK(A(C,D 
)+40):POKEA(C,D)+41,109-PEEK 
(A(C,D)+41) 

830 POKEA(C,D)+CO,2:POKEA(C ,D)+1 
+CO, 2 

840 POKEA(C,D)+40+CO,2 :POKEA(C,D 
)+41+CO,2:Pl=0:P2=0:P3=0:P4= 
0 

860 RETURN 

870 REM INIZIALI ZZA I PUNTATORI 
AI REGISTRI DATI 
910 REM QUALE CAMBIARE 
920 IFX+Y< > 2THEN9 50 
930 F0RC=2T03:D=1:GOSUB810:NEXT: 

FORD=lT03:C = 1:GOSUB810 :NEXT 
940 D = 2:C = 2:GOSUB810: RETURN 
950 IFX+YO8THEN980 
960 FORC = 3T02STEP-1:D = 4:GOSUB810 
: NEXT:F0RD = 4T02STEP-1:C = 4 :GO 
SUB810:NEXT 

970 C = 3:D = 3:GOSUB810: RETURN 
980 IFX+Y< > 5THEN1020 
990 IFX<>4THEN1020 
1000 FORC= 3T02STEP-1:D = 1:GOSUB81 
0:NEXT:FORD=lT03:C=4:GOSUB8 
10:NEXT 

1010 C = 3:D = 2:GOSUB810: RETURN 
1020 IFX+YO 5THEN1060 
1030 IFX<>1THEN1060 
1040 F0RC = 2T03:D = 4 :GOSUB810 :NEXT 
:FORD = 4T02STEP-1:C = 1:GOSUB8 
10 :NEXT 

1050 C = 2:D = 3:GOSUB810: RETURN 
1060 REM CONTROLLO BORDI 
1070 IF(X>1ANDX< 4)AND(Y=10RY= 4)T 
HENC=X-1:D=Y:GOSUB810:C=X+1 


1 , 0 , 0 , 1 , 1 , 0 , 0 , 

0 , 1 , 1 , 0 , 0 , 1 , 1 , 

1 , 0 , 0 , 1 , 1 , 0 , 0 , 

1 , 1 , 1 , 1 , 1 , 1 . 1 » 

0 , 1 , 1 , 0 , 0 , 1 , 1 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 1 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

1 , 0 , 0 , 1 , 1 , 0 , 0 , 
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:GOSUB810:GOSUBl100 
1080 IF(Y>1ANDY< 4)AND(X = 10RX = 4)T 
HEND=Y-1:C=X:GOSUB810:D=Y+1 
:GOSUB810:GOSUB1XOO 
1090 GOTO1160 

1100 IFY=lTHEND=Y+l:C=X:GOSUB810 
Ilio I FY = 4THEND = Y-1 :C = X:G0SUB810 
1120 IFX = 4THENC ~X-1 :D = Y:G0SUB810 
1130 IFX=1THENC=X+1 :D = Y:GOSUB810 


1140 RETURN 

1150 REM CONTROLLO INTERNI 
1160 IF(X=1)OR(Y=l)OR(X=4)OR(Y = 4 
)THENl200 

1170 D=Y+1:C=X:GOSUB810:C=X-1:D= 
Y:GOSUB810 

1180 D=Y-1:C=X:GOSUB810:C=X+1:D= 
Y:GOSUB810 

1190 C = X : D = Y : GOSUB810 
1200 RETURN 

1210 PR INT"HAI VINTO!" 
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La casa stregata 


joystick 


Una strega ha catturato alcuni socievoli gat¬ 
tini e li ha portati nella sua spettrale dimora: 
tocca a voi cercare 'di salvarli evitando fama 
smi, pipistrelli e spìriti maligni. Il gioco è a sei 
livelli di difficoltà: per ogni gatto che prende¬ 
te dovete ritornare al corridoio più basso ed 
ivi deporlo, in quanto è questo l’unico luogo 


100 POKE52,48 :POKE56,48:CLR 
102 POKE53280,0 :POKE53281,0 
105 PRINT"{CLR}[<7>){ 3 GIU'}*** 
*********{r VS }la CASA STREGA 
TA{OFF}************"; 

107 PRINT" { 13 GIU'H 9 SPAZljRI 
DEFINIZIONE CARATTERI" 

108 POKE56334,PEEK(56334)AND254 : 
POKEl,PEEK(1)AND 251 

110 FORI=0TO511:POKEl2288+1/PEEK 
(53248+1):NEXT 

115 POKEl,PEEK(l)OR4:POKE56334,P 
EEK(56334)ORI 

120 F0RI=832T0936:READA:POKEl,A: 
NEXT 

130 FORI=12288+35*8TO12288+45*8+ 
7 :READA:POKEl,A:NEXT 
140 FORI = 12288 + 27*8TOl2288 + 31*8 + 
7:READA:POKEl,A:NEXT 
150 FORI=12288+58*8T012288+62*8+ 

7 :READA:POKEl,A:NEXT 

152 SC=1024 

153 CM=54272 

155 SH = 54273:SL=54272:V=54296 : WF 
=54276:O=0:P=l:Q=40:DIMA(13) 

:POKEV,15 

157 POKESL+5,17 :POKESL+6,241 
160 GOSUB800 
165 GOSUB900 

170 POKE53272,(PEEK(53272)AND240 
) +12 

175 GOSUB1000:RN=RN+1 
200 CL=SC+8 59 

210 jp=15-PEEK(56320)AND15:IFJP= 

8 THE NJ P = 3 : GOTO 215 

211 IFJP = 2THENJP= 5 :GOT0215 

212 IFJP=4THENJP=7:G0T0215 

213 IFJP=1THEN215 

214 JP=2 

215 TL=CL:Z=TL:ONJPGOSUB301,300, 
303,300,305,300,307,300 

220 CL= Z:POKEV,15:POKESH,50 :POKE 
WF,17:GOSUB400:POKEWF,16 


sicuro per i poveri gattini. Se incontrate un 
fantasma o un pipistrello vi spaventate e la¬ 
sciate cadere il gatto, che viene riposto in un 
altro punto del labirinto. Più gatti porterete 
m salvo, più alto sarà il vostro punteggio. 
Buon divertimento! 


225 IFDFTHEN500 

230 POKETL,32 :POKECL,58 :POKECM+C 
L,3+CF 

232 GOSUB700:IFCC=lTHENFORX-lTOl 
500:NEXT:GOTO170 

235 GOSUB600:IFDFTHEN500 
240 GOTO210 

300 RETURN 

301 Z=Z-Q: RETURN 
303 Z=Z+P : RETURN 
305 Z = Z +Q: RETURN 
307 Z=Z-P: RETURN 

400 REM CONTROLLO COLLISIONE 
405 IFPEEK(CL)=440RPEEK(CL)=450R 
PEEK(CL)=35THENCL=TL:RETURN 
407 IFCFANDCL<SC+873ANDCL>SC+845 
THEN2000 

410 IFCFANDPEEK(CL)=60THENCL=TL: 
RETURN 

415 IFPEEK(CL)=60THENCF=4:POKEWF 
,33:FORI=lTO100:NEXT:RETURN 
420 IFPEEK(CL)=610RPEEK(CL)=59TH 
EN1800 

425 IFPEEK(CL) =31THEN1900 
430 RETURN 
500 REM **** 

510 PRINT"{CLR) [<7>] {GIU* } 

{ 10 DESjUN'ALTRA VITTIMA!" 
520 POKE53272,21 
525 PRINT"{GIU’}{ 10 DES) 

{ 4 SPAZI}LIVELLO"AA 
530 PRINT"{GIU'}{ 11 DES}ROUND"R 
N"PUNTI"SR 

540 PRINT"{GIU 1 }{ 7 DESjGIOCHI A 
NCORA?{ 2 SPAZI}{RVS}S{OFF} 
OR {RVS}N{OFF}" 

550 GETA$:IFA$=""THEN550 

560 IFA$ = "S"THENCF=0:GOTO570 

562 IFA$O"N"THEN5 50 

565 SYS2048 

570 RN=0:SR=0:DF=0 

575 G0T0165 

600 REM ****** 
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610 I = INT(RND(1) *(AA* 2) )+1 

620 TL=A(I):Z =TL:POKEA(I) ,32 

630 ONINT(RND(1)*4)+1GOSUB301,30 
3,305,307 

635 IFZ>SC+8 4 5ANDZ<SC + 87 3THEN660 

640 IFPEEK(Z)=58THEN1900 

650 IFPEEK(Z)=32THENA(I)=Z 

660 POKEA(I) ,31:POKECM+A(I) ,4 : RE 
TURN 

700 PRINT"{HOME}{ 23 GIU'} 

{ 10 DES}{WHT}ROUND"RN"PUNTI 
"SR"{SIN} RETURN 

800 PRINT"{CLR}TU{ 2 SPAZI}ENTRE 
RAI NELLA{ 2 SPAZI}CASA DI U 
NA STREGA. 

815 PRINT"{GIU'}LA STREGA E'FUOR 
I,CHE VOLA SULLA SCOPA. 

820 PRINT" {GIU' }ESSA{ 2 SPAZILA 
CATTURATO{ 2 SPAZI}DEI GATT 
I GIALLI E{ 2 SPAZI}"; 

825 PRINT"{GIU'{VUOLE STREGARLI, 
MA TU PUOI INTERVENIRE 
{GIU'}E{ 2 SPAZI}SALVARLI. " 

830 PRINT"{GIU 1 }UTILIZZANDO IL J 
OYSTICK DEVI RACCOGLIERE"; 

832 PRINT"{GIU'}UN GATTO PER VOL 
TA E PORTARLO IN FONDO 
{ 2 SPAZI}"; 

835 PRINT"{GIU'}AL QUADRO. 

{ 2 SPAZI}MENTRE TRASPORTI U 
N GATTO, "; 

837 PRINT"{GIU'} TU DIVENTI GIAL 
LO.PUOI PORTARE SOLAMENTE"; 

840 PRINT"{GIU'}UN GATTO PER VOL 
TA.I PUNTI AUMENTANO PER"; 

845 PRINT"{GIU'{OGNI GATTO CHE S 
ALVI,QUANDO HAI SALVATO 
{GIU'}10 GATTI,HAI UN'ALTRA 
CASA" 

847 PRINT:PRINT"{ 12 SPAZI}PREMI 
UN TASTO"; 

8 50 GETA$: IFA$ = ""THEN850 

855 PRINT"{CLR}SE TI IMBATTI 

{ 2 SPAZI}IN UN PIPISTRELLO 
O UN{ 3 SPAZI}"; 

860 PRINT"{GIU'{FANTASMA,TI SPAV 
ENTI E LASCI CADERE IL 
{ 2 SPAZI}{GIU'}GATTO CHE ST 
AI PORTANDO. " 

865 PRINT"{GIU'}LA CASA E'ANCHE 
INVASATA DAI DEMONI, 

{ 4 SPAZI}"; 

866 PRINT"{GIU'ISPIRITI CHE SI A 
GGIRANO NEI CORRIDOI," 

867 PRINT"{GIU'}SE TI SCONTRI CO 
N UNO DI LORO FINISCE IL 
{GIU'}GIOCO!" 


368 PRINT"{GIU'}(LA RIGA PIU' IN 
BASSO E'SICURA) " 

870 PRINT"{YEL}{GIU'}PIU'ALTO E' 
IL LIVELLO, MAGGIORE 
{ 2 SPAZI}E'{ 2 SPAZI}IL 
{GIU'}PUNTEGGIO,MA E'PIU'DIF 
FICILE.{OFF}" 

890 RETURN 

900 PRINT"[<6>]{GIU’{INSERISCI I 
L LIVELLO 1-6" 

920 GETA$: IFA$ = ""THEN920 

930 AA=VAL(A$):IFAAC10RAA>6THEN9 
20 

940 RETURN 

1000 POKE53280,0:POKE53281,0 :PRI 
NT"{CLR}" 

1003 PRINT">{YEL}>.>•>>>>>>>>>>> 
>>>{BLU} - ,{YEL}>.>>>>>>>>>. 
>>>>>>>"; 

1005 PRINT">>>>>>>.>>.>>>>>>> 

{BLU}-##,{YEL}>.>>$%>.>>>>. 

>>>>>"; 

1010 PRINT">>>>•>>>>>>>>>>.> 

{BLU}-####,{YEL}>>&[£'>>.>> 
>>>>>>"; 

1015 PRINT">>>>>>>.>>>>>>>>{BLU} 
-######, {YEL} >(] t) >.»>•>>> 
>>"; 

1020 PRINT">>>>>>>>>>.>>>>{BLU}- 
########, {YEL} >* + >.»>>»>> 
>>"; 

1025 PRINT">>>>>.>>>>>>>>{BLU}-# 
#########,{YEL}>>>.>>>>>>>. 
>>"; 

1030 PRINT">>>>>>>>>>»>{BLU}-# # 
##########,{YEL}>>>.>>>>>>> 
>>"; 

103 5 PRINT" >>>.>»>>.>>{ BLU}- ### 
###########, {YEL} >.»>>>>.> 
>>"; 

1040 PRINT">>.>>>>>>>>{BLU}-#### 
############,{YEL}>>>.>>>>> 
>>"; 

1045 PRINT">>>>>>>>>>{BLU}-##### 
■#############,{WHT}>>>>>>>> 
>>"; 

1050 PRINT">>>>>>>>>{BLU}-###### 

####### {WHT} >>>>>>> 
>>"; 

1055 PRINT">>>>>>>>{BLU}-####### 
###############, {WHT}>>>>>> 
>>"; 

1060 PRINT">>>>>>>{BLU}-######## 

################,{WHT }>>>>> 
>>"; 

1065 PRINT">>>>>>{BLU}—######### 

#################,{ WHT}>>>> 


L 
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1075 PRINT">>>>>{BLU}-########## 
##################{WHT}>>>> 
>>"; 

1080 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
>>"; 

108 5 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
>>»; 

1090 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
>>"; 

1092 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
>>"; 

1093 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 

1094 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
>>"; 

1095 PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
>>"; 

1200 REM COSTRUZIONE LABIRINTO 
1205 A(0)=2 : A(1)=-80 : A(2)=-2 : A(3 
)=80 :WL= 35:HL=32:A=SC+846 
1210 POKEA,4 

1220 J=INT(RND(1)*4) :X=J 
1230 B = A+A(J):IFPEEK(B)=WLTHENPO 
KEB,J:POKEA+A(J)/2,HL:A=B:G 
OTO1220 

1240 J= (J+l) *-(J<3) : IFJOXTHEN12 
30 

1250 J= PEEK(A) :POKEA,HL:IFJ<4THE 
NA=A-A(J):GOTO1220 
1260 FORI=SC+216TOSC+8 56STEP40:P 
OKEI,32 :POKEI+7,32:NEXT 
1270 FORI=SC + 140TOSC+860STEP40:P 
OKEI,32:NEXT 

1280 FORI=SC+3 72TOSC + 852STEP4 0 :P 
OKEI,32:POKEI+15,32:NEXT 

1290 FORI=SC+489TOSC+849STEP40:P 
OKEI,32 :POKEI + 21,32:NEXT 

1291 FORI=SC+372TOSC+387:POKEI,3 
2 :NEXT 

1292 FORI=SC+489TOSC+510:POKEI,3 
2:NEXT 

1293 FORI=SC+687TOSC+712:POKEI,3 
2:POKEI+160,32:NEXT 

1300 REM **** 

1310 REM **** 

1320 FORI = PT03*AA 

1330 X=INT(RND (1)*680)+SC+40 

1340 BL= 0 :GOSUB1700:IFBLTHENl330 

13 50 POKEX, 59 :POKECM+X,1:NEXT 


1400 

1420 

1430 

1440 


REM **** 

FORI = PT03 *AA 

X=INT(RND(1)*680)+SC+40 
BL= 0 :GOSUB1700:IFBLTHENl430 


1450 

1500 

1520 

1530 

1540 


POKEX ,61 : POKECM+X, 5 :NEXT 
REM **** 

CC=11 : FORI =PTOl0 

X=INT(RND(1)*680)+SC+40 

BL= 0 : GOSUBl 700 : IFBLTHENl 530 


1550 POKEX,60 :POKECM+X,7 :NEXT 

1600 REM **** 

1620 FORI = PTOAA* 2 

1630 X=INT(RND(1)*680)+SC+40 

1640 IFPEEK (X) O32THEN1630 

1650 POKEX,31 :POKECM+X,4 : A(I)-X: 

NEXT:RETURN 

1700 IF (PEEK (X) 032) OR (PEEK (X + P) 
0 32ANDPEEK (X + P) <>3 5) THENBL 

1710 IF (PEEK (X-P) 032ANDPEEK (X-P 
) < >3 5)OR(PEEK(X+Q)< > 32ANDPE 
EK(X+Q)< > 3 5)THENBL=1 
1720 IF (PEEK (X-Q) 032ANDPEEK (X-Q 
) 035) THENBL= 1 
1730 RETURN 
1800 REM **** 

1810 IFCF=OTHENl840 
1820 X=INT(RND(1)*680)+SC+40 
1830 IFPEEK (X) O32THEN1820 
1835 POKEX,60 :POKECM+X,7:CF=0:SR 
=SR-2*AAt 2 :IFSR<OTHENSR=0 
1840 POKETL,32 :POKECL,58 :POKECL+ 
CM, 1 

1843 FORI=15T01STEP-1:POKESL,100 
:POKESH,100:POKEWF,33:POKEV 
,1 

1844 FORII = 1T02 5 :NEXTII,I 

1845 FORI = 1T04 00 :NEXT:POKEWF,32 
1850 TL=CL:Z=TL:ONINT(RND(1)*4)+ 

1GOSUB301,303,305,307 
1860 CL= Z:SR=SR-AAT 2 :IFSR<OTHENS 
R=0 

1870 GOTO400 
1900 REM **** 

1905 POKETL,32 :POKECL,58 :POKECL+ 
CM,4 :DF=1 

1910 POKESL,100:F0RI=1T04:POKEWF 
, 17 :POKESH,25:FORX=lTOl50 :N 
EXT:POKEWF,16 

1911 FORX=1T07 5 :NEXT 

1913 IFI = ÌORI = 3THENPOKECL,31 :GOT 
01920 

1914 POKECL,58 

1920 POKESL,0:FORX=lTO200:NEXT:N 
EXT :FORX = lTO500 :NEXT: RETURN 
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2000 

2010 


2020 

9000 


9005 

9010 


9015 

9020 


9025 

9030 


9035 

9040 

10000 

10010 

10015 

10020 


REM **** 

X = SC+ 98 5 : POKEX-CC,60 :POKECM 
+X-CC,7 :CC=CC-1:SR = SR+10*AA 
t 2:CF = 0 

POKEWF,33 : FORI = ITO50 :NEXT:R 
ETURN 

DATA120,8,72,152,72,138,72, 
173,19,145,72,173,34,145,72 
,169,0,141,62,3,141 
DATA63,3,169 

DATAI 27,141,34,145,173,32,1 


45,73,255,41,128,42, 

95,141,19,145, 17317 
DATAI4 5,73 


8,169,1 


fiS T i ! 5 u 41 ' 60 ' 74 ' 74 ' 40 ' 42 ' 1 

3 k ; °! c 16,208 ' 3 ' 141 ' 6 

3,3,152,41,15,162,0 

DATA232,224 


DATA 9,240,8,221,160 
46,142,62,3,104,141 
104,141,19,145,104 
DATA170,104 


3,208,2 

34,145, 


DATA168,104,40,88,96,2,3,1, 
5,4,12,8,10 

DATA255,255,255,255,255,25 

5,255,255 


DATA0 ,'0,0,0,0,15,63,255 
DATA0,0,0,0,0,240,252,255 
DATAI,1,3,3,7,7,7,7 


10030 DATAI28,128,192,192,224,22 

4.224.224 

10040 DATA7,7,7,7,3,3,1,1 
10050 DATA224,224,224,224,192,19 
2,128,128 

10060 DATA255,63,15,0,0,0,0,0 
10070 DATA255,252,240,0,0,0,0,0 
10080 DATAI28,192,224,240,248,25 

2.254.255 

10090 DATAI,3,7,15,31,63,127,255 

10100 DATA255,255,255,255,250,24 

6.244.224 

10110 DATA255,255,191,63,15,15,7 
,63 

10120 DATA240,249,240,228,0,252, 

255,255 

10130 DATA255,255,127,35,1,112,6 

3.255 

10140 DATA0,102,0,24,0,0,28,0 
10150 DATA56,84,56,16,124,186,40 
, 108 

10160 DATA62,42,62,28,28,28,60,1 
20 

10170 DATA40,124,85,125,57, 57,61 
,127 

10180 DATA0,16,124,254,214,130,0 

,0 

10190 DATA0,0,0,0,0,0,0,0 
20000 JP=15-PEEK(56320)AND15 
20010 PRINTJP:dOT020000 
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“Jumping Jack** 


■x *- < orre attraverso una impalcatura e cer 
c a di scendere giù uno alla pane inferiore 
fello schermo per mezzo di '.calmi 
Abbastanza facile vero? 

C'è solo un problema queste impalcature 
non sono molto resistenti ed all'improvviso 
possono crollare qua e là 
Dovete allora essere pronti a premere la 
barra'spazia m modo che Jack possa saltare 
la buca 

Se a ..suo tempismo è buono Jack salterà la 
bus a ed atterrerà salso dall'altra pane, mve 
ce se non avete premuto m tempo la 
barra spazio. Jack cadrà nella sezione crolla¬ 
ta 'mpcicctura 


0 REM JUMPING JACK 

1 REM VERSIONE PER Cb4 

5 GOSUB 3000 : PRIKT" tCLR!";" 

{ Il DES}INIZIALI ZZA/IONE" 

10 M»3:T=10:D*5:X*25:P-61:POKES5 
,16 :POKE56,64:S*54272:POKE532 
81,1:GOTO970 

Z0 C« 7 : E i = f» : FORI * 1024T0204 l : POKK 
I,59 :NEXT 

30 POKE53 2 80,C:KORI *1064TOl10 3 :P 
OKEI,53 :NEXT:PORI 1204TO1 30 3 : 
POKEI,53:NEXT 

33 KOR1 » 14 2 4TOl4o 3 :POKK1,53:NEXT 
:POKEI425, 54 :POKK1702,54 :POKK 
1865,54 

40 KOKI -1664T0170 3 :POKK1,53:NKXT 
: POR I•1864TOl90 3 :POKKI,53 :NKX 
T 

50 l’OR 1 * 552 96TOS61 76 + 39: POKK 1,4: 
NKXT 

60 KOR 1 = 554 56TO5 54 96 ♦ 39 : POKK I, Fi 
:NEXT 

70 KOR1 -55616TO5 5656♦39 :POKKI,F\ 
: NEXT 

80 FORI = 5 5856T05 5896 + 39 :POKKI , F > 
: NEXT 

40 FORI * 560 56TO5609b♦39 : POKEI, r’1 
:NEXT:GOSUB1000:FORI=iT01000: 
NEXT 

100 I- 1224 :POKEI302,54 :POKEI425, 
54 :POKEI702,54 :POKEI865,54 

ilO ITI 2 *INT(1/2)THENPOKE1-1,59 

:GOSUB720 


Se non siete stati pronti a premere la barra, 
avete ancora una possibilità per saltare la 
buca Eccp come se la bono/spazio viene 
premuta immediatamente dopo che Jack at¬ 
traversi la buca, potete fare un salto di sal¬ 
vataggio. 

Tuttavia Jack deve essere m ana sopra la bu 
ca per ottenere dei punti altrimenti nessun 
punto verrà assegnato Questo metodo può 
essere usato anche per saltare due buche 
sulla stessa fila 

Se fate un salto di salvataggio come des»Je 
rato sopra per la prima buca e Jack volerà 
sopra la seconda buca il punteggio verrà as 
segnato solo per la seconda buca 


120 i k i 5 :sr : - menu -kki , . >:v 
ORJ■1TOT:NEXT: GOTO140 

1 30 POKKI-1,59:POKEI,56:FORJ-1TO 

T:NEXT:B*1264 :GOSUB8 30 
140 IKPKKK 197 * 60THENGOSUB 1 90 
150 IFPEEK I*40)-54THENPOKEI,59: 
GOTO240 

160 IKPKKK ( I♦ 40)«60THEN760 
170 I 1*1:lKl>126 3THKNI - 122 4 :POK 
£1263,59 
180 GOTO110 

190 I«I-39:POKKI-r39,59 

200 IKPKKKll* 40)< >590RPEEK(I»80) 
OS 3THENSC-SC+X: POKKI-40, P:G 
ISUB740: - 40,59 

2 1 0 POKK 1,55: KOR.I - ITOT : NEXT : I » 1 + 

41:1FI>1263THENI- 1224 :POKEI2 
6 3,59:POKK1223,59 
220 P >KB1403,59:POKEI404,59 
2 30 FORJ « ITOT : NEXT : P' IREI - 41,59: P 
REI,55:R PURN 
240 1*1422 

250 IPI 2 INT I 2) THENPOKE 1*1,59 
-.GOSUB720 

260 IFI 2*INT(1/2)THENPOKEI,58 :F 
ORJ *ITOT:NEXT: GOTO2 8 0 
270 POKE1 + 1,59:POKE1,57:FORJ » ITO 
T:NEXT: 8 = 1424 :GOSUB830 
280 IFPEEK(197)=60THENGOSUB330 
29 - IFPEEK 1+40)-54THEN1 REI, • : 

GOTO380 

300 IFPEEK(I♦40)=60THEN760 


23 









310 I=I-1:IFI<1384THENI=1422:POK 
E1384,59 
320 GOTO250 

330 1=1-41:POKEI+41,59 
340 IFPEEK(1 + 40)< > 590RPEEK(1 + 8 0) 
<>53THENSC=SC+X:POKEI-40,P:G 
OSUB740:POKEI-40,59 
350 POKEI,58 :FORJ=lTOT:NEXT: 1 = 1 + 
39 :IFI<1384THENI = 1422:POKEI3 

84.59 :POKEI344,59 

360 POKEI344,59 :POKE1343,59 
370 FORJ=lTOT:NEXT:POKEI-39,59: P 
OKEI,58 : RETURN 
380 1=1624 

390 IFI/2=INT(1/2)THENPOKEI-1,59 
:GOSUB720 

400 IF1/2 = INT(1/2)THENPOKEI,55 :F 
ORJ=lTOT:NEXT:GOTO420 
410 POKEI-1,59:POKEI,56 :FORJ = lTO 
T:NEXT:B=1664:GOSUB830 
420 IFPEEK(197)=60THENGOSUB470 
430 IFPEEK(1 + 40)=54THENPOKEI,59 : 
GOTO520 

440 IFPEEK(1+40)=60THEN760 
450 1 = 1 + 1 :IFI>1663THENI = 1624:POK 
E1663,59 :POKE1623,59 
460 GOTO390 

470 1 = 1-39:POKEI + 39,59 :IFPEEK(I ) 
<>59THENSC=SC+300 
480 IFPEEK (1 + 40) O590RPEEK (1 + 80) 
<>53THENSC=SC+X:POKEI-40, P:G 
OSUB740 :POKEI-40,59 
490 POKEI,55 :FORJ = lTOT:NEXT: 1 = 1 + 
41:IFI>1663THENI=1624:POKEI6 

63.59 

500 POKEI641,59 :POKEI624,59 :POKE 

1623.59 

510 FORJ=lTOT:NEXT:POKEI-41,59 : P 
OKEI,55:RETURN 
520 1=1862 

530 IF1/2=INT(1/2)THENPOKEI+1,59 
••GOSUB720 

540 IFI/2=INT(1/2)THENPOKEI,58:F 
ORJ=lTOT:NEXT:GOTO560 
550 POKEI + 1,59 :POKEI,57 :FORJ=ITO 
T:NEXT:B=1864:GOSUB830 
560 IFPEEK(197)=60THENGOSUB610 
570 IFPEEK(1 + 40)=54THENPOKEI,59 : 
GOTO660 

580 IFPEEK(1+40)=60THEN760 
590 1 = 1-1:IFI<1824THENI = 1862 :POK 
E1824,59 
600 GOTO530 

610 1=1-41:POKEI+41,59 
620 IFPEEK (1 + 40) 0590RPEEK (1 + 80) 
<>53THENSC=SC+X:POKEI- 4 0,P:G 
OSUB740:POKEI-40,59 


630 POKEI,58 :FORJ = lTOT:NEXT: I = 1 + 
39 :IFI<1824THENI = 1862 :POKEl8 

24,59 

640 POKEl784,59 :POKE178 3,59 
650 FORJ=lTOT:NEXT:POKEI-39,59 :P 
OKEI,58 : RETURN 
660 P=P+1:IFP=64THENP=61 
670 D=D-1:T=T-.1 

680 X=X+50:IFX>125THENX=25:D=8:T 
=10:C=5:F%=5 
690 IFX=75THENC = 0:F% = 0 
700 IFX=125THENC=8:F%=7 
710 GOTO30 

720 POKES + 4,17 :POKES + 5,132 :POKES 
+6,132:POKES+24,6 

721 H0 = 28:L0 = 49:POKES+1,HO :POKES 
,LO :FORZ = lTO200:NEXT:GOSUB20 
00.-RETURN 

740 POKES + 24,15:POKES+4,17 :POKES 
+5,132:POKES+6,132 

741 FORHl = 2lT0126 :POKES + 1,Hi :LI = 
181 :POKES,LI:NEXT:GOSUB2000: 
RETURN 

760 POKES+24,15:POKES+4,17:POKES 
+5,33:POKES+6,132:H2=233 

765 H2 = H2-5:POKES + 1,H2:L2 = 181:PO 
KES, L2 

766 POKEI,58 :POKEI-40,59 :POKEI + 5 
4272,0:1=1+40:IFI<1983THEN76 
5 

767 GOSUB2001 

769 M=M-1:IFM=0THEN780:POKES+1,H 
2 = 181 :POKES,L2:NEXT:GOSUB200 
1 

770 P=61:X=25:D=6:C=27:T=10:F%=5 
:POKE1,59:GOTO 3 0 

780 POKE53272,21 :PRINTCHR$(147) ; 
SPC(205);"{ 9 DES} GIOCO FIN 
ITO":PRINT 

785 PRINT"{GIU 1 } { 11 DES} IL PU 

NTEGGIO E'";SC 
790 PRINT:PRINT"{GIU'} 

{ 10 DES} GIOCHI ANCORA ? (Y 
/N) " 

800 K=PEEK(197):IFK=60THEN800 
810 IFK= 2 5THENPRINT"{CLR}" : RUN 
820 IFK=39THENPRINT"{CLR} 

{ 10 GIU'} { 8 DES}CIAO! !"; : 
FORW=lTO500:NEXT:PRINT"{CLR} 

" : END 

825 GOTO800 

830 IFINT(RND(1)*D)+1<>lTHENRETU 
RN 

840 L=INT(RND(1)* 39)+1:IFL=20ORL 
=1THEN840 

850 POKEB+L,60 :GOSUB7 20 : RETURN 
860 DATA255,129,66,66,36,36,24,2 
55 
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870 DATA66,126,66,66,66,126,66,6 
6 

880 DATAI2,8,13,62,44,12,18,33 
890 DATA24,16,24,24,24,16,16,24 
900 DATA24 <8,24,24,24,8,8,24 
910 DATA24,8,88,62,26,24,36,66 
920 DATAO,0,0,0,0,0,0,0 
930 DATA129,66,66,66,98,34,34,34 
940 DATA27,10,27,17,27,0,0,0 
950 DATA59,10,11,9,11,0,0,0 
960 DATA91,74,91,81,91,0,0,0,0 

970 POKE53272,(PEEK(53272)AND240 
) +12 

971 POKE56 334,PEEK(56334)AND254 

972 P0KE1,PEEK(1)AND251 

973 FORI=0TO511:POKEI+12288,PEEK 
(1+53248):NEXT 

974 POKE1,PEEK(1)OR4 

975 POKE56334,PEEK(56334)ORI 

976 RESTORE:FORI=12288+53*8T0122 
88+64*8:READA:POKEI,A:NEXT 

990 GOTO20 

1000 FORI=1302T01422STEP40:POKEI 
,54 :NEXT: FORI = 142 5T01625STE 
P40:POKEI,54 :NEXT 
1010 FORI=1702TO1862STEP40:POKEI 
,54 :NEXT 

1015 FORI = 55574TO55694STEP40:POK 
EI,3:NEXT 

1020 FORI = 55697TO55897STEP40:POK 
EI,3:NEXT:FORI=55974TO56134 
STEP40:POKEI,3:NEXT 
1030 POKE1865,54:POKE1905,54:POK 
E56137,3:POKE56177,3 : RETURN 


2000 POKES + 4,0 :POKES+5,0 :POKES+6 

0 * RETURN 

2001 POKES + 6,15:POKES + 4,129-.POKE 
S+5,132 :POKES + 6, 132 

2002 H3=10:L3=143:POKES+1,H3:POK 
ES,L3:FORT=ITOl00 0 :NEXT:GOS 
UB2000: RETURN 

3000 PRINT"{CLR}{ 2 GIU'} PER OT 
TENERE PUNTI DEVI FAR IN MO 
DO" 

3002 PRINT"{ 7 SPAZI}CHE JACK SA 
LTI LE BUCHE" 

3010 PRINT"{ 2 GIU'} PER SALTARE 
PREMERE LA BARRA-SPAZIO" 

3020 PRINT"{ 2 GIU'} 25 

{ 2 SPAZI}PUNTI PER BUCA (1 
' SCHERMO)" 

3025 PRINT"{ 2 GIU'} 75 

{ 2 SPAZI}PUNTI PER BUCA (2 
' SCHERMO)" 

3030 PRINT"{ 2 GIU'} 125 PUNTI P 
ER BUCA (3' SCHERMO)" 

3040 PRINT"{ 2 GIU'} IL PUNTEGGI 
O AUMENTA CON IL NUMERO" 

3041 PRINT"{ 8 SPAZI}DI SCHERMI 
COMPLETATI" 

3050 PRINT"{ 2 GIU'} PREMERE LA 
BARRA-SPAZIO PER CONTINUARE 

II 

3060 GR=PEEK (197) : IFGR060THEN30 
60 

3070 RETURN 
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Spara all’alfabeto 


(ovstick . ;pz crvaie' 


Se avete un fg o. un : ' un - > 

cn<? stc ■ r ‘7 r .’~ r ~ a cgge r e e .*•{ 
Quet’c t rr r r c*'c •'rr’*"' * .'• *,^* • ■ ■ 

ntfitjfC'C. è ■C'O *; '\tijrr '. • 

al Imporlo con le lettene che vengono mostra 
te o cose so io schermo. ( oc. ' roste 8 v 
va a destra e con a sinistra Pre'ne r 1o 
lo borra spaziatrice o il pulsante del joystick 


- ■ s £''0 •.••■fé uro freccia. Quando 

tutte le lettere dell’alfabeto sono state colpi- 
o quest modo. programma mostra 
nuovamente I alfabeto al suono di un piace¬ 
vole motivetto Per rendere più divertente il 
:? s.: r " stote f>rc< ■•e quattro varianti, 
'•tate 0 se eg.ic'e alternar riamente quoti 
do i goco ve lo chiede 


4 POKE53280,6 :POKE53281,1: FORT”5 
4272T054296 :POKET,0 :NEXTT 

5 PRINT"{CLR}":Y«1424:HF»54273:L 
P-54 2 72:CL-54 272:POKE54 296,15: 
POKE54277,66 

6 POKE54 278,68 :POKE54 28 4,17 :POKE 
54285,250:POKE54279,100:POKE54 
280,100 

7 H*1798 :POKE650,128:POKE651, 1 

8 DIMAB(26) :PORX-1TO26: AB(X)»32: 
NEXTX 

10 GOSUB200 
12 GOSUB40 

14 GOSUB215 :FORX* 182 4TO186 3 :POKE 
X,67:POKKX«54272,3:NEXTX 
16 GOSUB250:GOSUB265 
30 GOS1JB435:GOTO 16 
4 0 PRINT"{CLR}": RF.STORE: POKE5 328 
1, 1 :Y«1551 

42 READL:1FL-0THEN90 

43 POKEY,L:POKEY+CL,2 

50 READHP:POKEHF,HP:READLP:POKEL 
F,LP:READD:POKE54276,17 
60 FORX*1TOD:NEXTX:POKE54276,16 
70 Y* Y + 1 : FORX-» ITO 10 : NEXTX : IFL = 32 
THENY»Y- 1 

80 IFY=14 64THENY*1517 
85 GOTO4 2 

90 READAS: IFA$*“0"THEN100 
92 READHP:READLP:READD 
95 PRINT"{ 13 DES}"A$:POKE54276, 
17:POKEHF,HP:POKELF,LP 
97 FORI *1TOD* 7 :NEXT:POKE54276,16 
:FORX*ITO10 :NEXTX:PRINT" 
{HOME}":GOTO90 

100 FORX-ITOl500:NEXTX:RETURN 

170 DATAI,34,75,310,2,34,75.310, 
3,51,97,310,4,51,97,310,5,57 
,172,310 

171 DATA6,57,172,310 


173 

175 

177 

178 

179 

181 

183 

184 

185 

187 

188 

189 

190 

191 
200 

202 


DATA7,51,97,615,8,45,198,310 

,9,45,198,310,10,43,52,310,1 

1,43,52,310 

DATAI 2,38,126,120,13,38,126, 
120,14,38,126,120,15,38,126, 
120,16,34,75,602 

DATAI 7,51,97,310,18,51,97,31 
0.19.45.198,601,20,43,52,310 


,21,43,52,310 

DATA22,38,126,601,23,51,97,1 
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DATA32,51,97,121,32,51,97,2 3 

1.24.45.198.601.25.43.52.310 
,32,43,52,310 

DATA26,38,126,605,0 
DATA "ORA", 34,75, 310," 

{ 4 DES)IO",34,75,310," 

{ 7 DES)CONOSCO",51,97,310 
DATA"(GIU 1 ){ 4 DES)L’",51,97 
,310 

DATA"{GIU 1 }{ 6 DESIA”,57,172 
,310,"{GIU’H 7 DES)B",57,17 
2,310,"{GIU 1 ){ 8 DES}C",51,9 
7,610 

DATA"{ 2 GIU’}{ 2 SIN)LA PRO 
SSIMA",45,198,310," 

{ 2 GIU’){ 10 DES)VOLTA",45, 

198.310 

DATA"{ 3 GIU’}{SIN}CAN",43,5 

2.310 

DATA" { 3 GIU’H 2 DES) TE", 4 3 
,52,310,"{ 3 GIU’ } { 4 DES}RA 
I",38.126,310 

DATA" { 3 GIU’H 8 DES)CON”,3 

8.126.310 

DATA” { 3 GIU’H 12 DES)ME”,3 
4,75,630,”0" 

PRINT”{HOME}{ 10 GIU’) 

{ 11 DES){RVS}{BLU5SPARA ALL 
•ALFABETO" 


LE=-1 :KR = 0 






204 PRINT"{HOME}{ 12 GIU'} 

{ 9 DES}QUALE GIOCO- 1,2,3 0 

4 « 

205 POKE198,0:WAIT198,1:GETA$ 

206 IFA$ = "1 ,, THEN211 

207 IFA$="2"THENLE=0:G0T0211 

208 IFA$="3"THENLE=1:G0T0211 

209 IFA$="4"THENLE=2:G0T0211 

210 GOTO205 

211 RETURN 

215 R$="ABCDEFGHIJKLMNOPQRSTUVWX 
YZ" 

225 PRINT"{CLR}":POKEH,83 :POKE53 
281,0:POKE53280,2:GOSUB228:P 
OKE10 6 5+V,R: RETURN 

228 R=INT(LEN(R$)*RND(1)+1):P=AS 
C(MID$(R$,R,l))-64 

229 IFLE=lTHEN232 

230 R$=LEFT$(R$,R-1)+RIGHT$(R$,L 
EN(R$)-R):R=P 

232 V=INT(RND(1)*350+1) 

236 IFLE= 0THENKR=KR+1:R=KR 

237 IFLE=1THENPOKE198,0:WAIT198 , 
1:GETB$:R=ASC(B$)- 64 

239 IFR>260RR<1THENP0KE198,0 :GOT 
0237 

240 RETURN 

250 XV=(PEEK(56320)AND15) 

252 JV=15-XV:KV=(PEEK(56320)AND1 
6) 

255 IFJV=4THEND=-1:GOSUB274 
257 IFJV=8THEND=1:GOSUB274 

259 IFKV=0THENGOSUB300 

260 RETURN 

265 GETA$:IFA$ = ""THEN270 

266 IFA$="C"THEND=-1:GOSUB274 

267 IFA$ = "B"THEND=+1:GOSUB274 

268 IFPEEK ( 197)=60THENPOKE198,0 : 
POKE197,0 :GOSUB300 

270 RETURN 

274 H=H+D:IFH<1784THENH=1784 

275 IFH>1823THENH=1823 

276 POKEHF,10 :POKELF,70 :POKEH-D, 
3 2 :POKEH,83:POKEH+CL,1 


277 POKE54276,33 :POKE542 76,32 : RE 
TURN 

300 G=H:FORU=1T019:G=G-40 :IFPEEK 
(G)< > 32THENPOKEG,32 :POKEG+40 
,32:GOTO350 

305 POKE54276,17:POKEHF,U+60:POK 
ELF,U+125:POKEG,30 :IFU>1THEN 
POKEG+40,32 

307 GOSUB435 :NEXTU:POKEG,32 :POKE 
54276,16.-RETURN 

350 POKE54283,129:GOSUB374:POKE5 
3280,2:POKE53281,0 
355 POKE54283,128 :GOSUB390 
357 GOSUB228:POKE1065+V,R:RETURN 

374 POKE53280,0 :POKE53281,2 

375 POKE54 276,16 :POKEG,90 :POKEG+ 
40,42:POKEG-40,42 :POKEG+1,42 
:POKEG-1,42 

377 POKEG+41,77 :POKEG-41,77 :POKE 
G-39,78 :POKEG+39,78 :FORL=0TO 
300:NEXT 

379 POKEG,32:POKEG+40,32:POKEG-4 
0,32:POKEG-1,32:POKEG+1,32 
381 POKEG-41,32:POKEG+41,32:POKE 
G-3 9,3 2 : PO KEG+ 3 9,3 2 : RETURN 
390 AB (R)=R:F0RX=lT022:POKE1873 + 
X,AB(X):POKE1873+X+54272,7 
392 NEXTX:F0RX=23T026:POKE1938+X 
,AB(X):POKE1938+X+54272,7 : NE 
XT 

394 F0RX=1T026:IFAB(X)=32THENRET 
URN 

395 NEXTX:FORX=1T026:AB(X)= 32 : NE 
XTX:FORW=lTO1000:NEXTW:GOSUB 
4 0 :RUN 

43 5 IFLE<2THENRETURN 
436 Q=V+1065:IFPEEK(162)<41THENR 
ETURN 

440 IFQ>1742THENPOKEQ,32:V=2:RET 
URN 

442 POKEQ,32 :POKEQ+1,R:V=V+1:POK 
E162,0 
445 RETURN 
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Il topo 

Immaginate di essere un piccolo topolino che 
si è perso in un labirinto: dovete trovare 
l'uscita nel minor numero di mosse possibili. ' 
Il labirinto è tridimensionale e vi potete spo¬ 
stare usando i tasti "]" e "L " per girare a si¬ 
nistra od a destra rispettivamente, o la barra 

Programma n. I 

10 REM TOPO PARTE 1 (SETUP) 

20 POKE163 84,0 :POKE16385,0 
30 POKE56578,PEEK(56578)OR3 
40 POKE56576,(PEEK(56576)AND252) 
ORI 

50 POKE53272,4 :POKE648,128 
60 POKE53280,12 :POKE532 81,12 

Programma n. 2 

3 PRINTCHR$(142) :GX=49152:GOTO38 

4 REM CREAZIONE FIGURA 3-D 

5 N=2:A=H:B=V:FF=2f(F-l):SYS IN 

6 Z=M%(A,B)*FF:IF((Z/16) AND 1)= 
1 THEN RL=-1:GOSUB 25:GOTO 8 

7 W=M%(A+S,B-R)*FF:IF ((W/128) A 
ND 1)=1 THEN RL=-1:GOSUB 21 

8 IF ((Z/64) AND 1 )=1 THEN RL=1 
:GOSUB 25:GOTO 10 

9 W=M%(A-S,B+R)*FF:IF ((W/128) A 
ND 1)=1 THEN RL=1:GOSUB 21 

10 IF ((Z/128) AND 1 )=1 THEN 14 

11 N=N+1:IF N>8 THEN 15 

12 A=A+R:B=B+S:IF B<2 THEN 15 

13 GOTO6 

14 GOSUB17 

15 RETURN 

16 REM DISEGNO CENTRO POSTERIORE 

17 POKEHX,VX+DX(N):POKEHY,YU(N): 
SYS PL:POKEHY,YD(N):SYS LI 

18 POKEHX,VX-DX(N) :SYS LI :POKEHY 
, YU (N): SYS LI:POKEHX,VX+DX(N) 

: SYS LI 

19 RETURN 

20 REM DISEGNO LATO POSTERIORE 

21 POKEHX,VX+RL*DX(N-l):POKEHY,Y 
U(N) : SYS PL:POKEHX,VX+RL*DX(N 
) : SYS LI 

22 POKEHY,YD(N):SYS LI:POKEHX,VX 
+RL*DX(N-1):SYS LI 

23 RETURN 

24 REM DISEGNO LATO DESTRO O SIN 
ISTRO 


spaziatrice per avanzare. Il tasto "M" mo¬ 
stra la pianta del labirinto con la vostro posi¬ 
zione e la direzione di marcia. Registrate i 
due programmi in sequenza sulla stessa cas¬ 
setta, in quanto il primo provvede a caricare 
automaticamente il se r ondo. Ruona fortuna! 


70 POKE641,0 :POKE642,64 
80 POKE43,1 :POKE4 4,64 :POKE55,0 :P 
OKE56,128 :POKE64 6,1:PRINT" 
{CLR}" 

90 PRINT"{CLR}{ 2 GIU'}{ 2 DES} 
LOAD & RUN TOP02" 


25 POKEHX,VX+RL*DX(N-l):POKEHY,Y 
U(N-l) : SYS PL:POKEHX,VX+RL*DX 
(N) 

26 POKEHY,YU(N) : SYS LI:POKEHY,YD 
(N) : SYS LI :POKEHX,VX+RL*DX(N- 
1) 

27 POKEHY,YD(N-l) :SYS LI :POKEHY, 
YU (N-1) : IF N>2 THEN SYS LI 

28 RETURN 

29 REM ACCETTAZIONE CARATTERE .DA 

TASTIERA 

30 GET A$:IF A$="" THEN 30 

31 RETURN 

37 REM INIZIALIZZAZIONE 

38 HX=82 8:HY=829:LINE=1228 8 : PLOT 
= 12665 : INIT=12685 :SCR=12725 

39 FL=12726:FH=12730:TL=12734:TH 
=12738 

40 PRINT"{CLR}{ 5 GIU'}"TAB(11)" 
{RVS} IL TOPO {OFF}” 

41 PRINT"{ 2 GIU 1 }{DES}ESCI DAL 
LABIRINTO, GUARDANDO":PRINT" 

{ 4 SPAZI}COME SE TU FOSSI IL 
TOPO" 

42 INPUT"{ 3 GIU'}DIMENSIONE LAB 
IRINTO (H,L){ 2 SPAZI}3,3 

{ 5 SIN}";H,V 

43 IF H<3 OR H>15 OR V<3 OR V>15 

THEN40 

44 PRINT"{CLR}{GIU'}ATTENDERE, P 
REGO..." 

45 IF PEEK(LI)=32 AND PEEK(LI+1) 
=33 AND PEEK(LI+2)=48 THEN 48 

46 CK=0:FOR L=12288 TO 12761:REA 
D A:POKE L,A:CK=CK+A:NEXT:FOR 
K=GXTOGX+23:READGX 
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47 POKER,GX:NEXT: IFCKO50144THEN 
PRINT"ERRORE NELLA DIGITAZ. D 
ELLE FRASI DATA!":STOP 

48 N=H*V-1:H=H+1:V=V+1:D=1 

49 DIM M%(17,17),WALK(100),CUT(5 
),DX(8),YU(8),YD(8) 

50 FOR J=1 TO V+l:M%(1,J)=4:M%(H 
+ 1,J)=1 :NEXT 

51 MX= 7 9 :MY= 4 9 :VX= 3 9 :VY= 2 4 :X=VX 

52 FOR J=1 TO 8:DX(J)=X:YU(J)=IN 
T(VY-X*VY/VX):YD(J)=INT(VY+X* 
(MY-VY) /VX ) 

53 X=INT(X*7/10):NEXT 

5.4 FOR 1 = 2 TO H :M% ( I ,V+1) = 8 :M% ( I 
,1)=2 :FOR J= 2 TO V:M%(I,J)=15 
:NEXTJ,I 

55 R=INT(H/2)+l:S=INT(V/2)+1:M%( 
R,S)=15 

56 PRINT"{CLR}{GIU'}STO GENERANO 
0 IL LABIRINTO.:GOSUB2000 

57 REM GENERAZIONE CASUALE DEL L 
ABIRINTO (ALGORITMI DI ROGERS 

E STRASSBERGER) 

58 FOR IWALK=1 TO N 

59 I = Z 

60 IF M%(R-1,S)>14 THEN I=I+1:CU 
T(I)=1 

61 IF M%(R,S-1)>14 THEN I=I+1:CU 
T(I)=2 

62 IF M%(R+l,S)>14 THEN I=I+1:CU 
T ( I ) =3 

63 IF M%(R,S+1)>14 THEN I=I+1:CU 
T(I)=4 

64 IF 1=0 THEN 75 

65 IF IOl THEN I = INT (RND ( 1 ) *I) + 
1 

66 ON CUT(I) GOTO 67,69,71,73 

67 M%(R,S)=M%(R,S)-(M%(R,S) AND 
1):R=R-1 

68 M%(R,S)=M%(R,S)-((M%(R,S)/4)A 
ND 1)*4 :GOTO 86 

69 M%(R,S)=M%(R,S)-((M%(R,S)/8)A 
ND 1)*8:S=S-1 

70 M%(R,S)=M%(R,S)-((M%(R,S)/2)A 
ND 1)*2 :GOTO 86 

71 M%(R,S)=M%(R,S)-((M%(R,S)/4)A 
ND 1)*4:R=R+1 

72 M%(R,S)=M%(R,S)-(M%(R,S)AND 1 
): GOTO 86 

73 M%(R,S)=M%(R,S)-((M%(R,S)/2)A 
ND 1)*2:S=S+1 

74 M%(R,S)=M%(R,S)-((M%(R,S)/8)A 

ND 1)*8:GOTO 86 

75 IF D=-1 THEN 79 

76 IF ROH THEN 83 

77 IF SOV THEN 82 


78 R=2:S=2:GOTO 84 

79 IF R<>2 THEN 83 

80 IF SOV THEN 82 

81 R=H:S=2:GOTO 84 

82 S=S+1:D=-D:GOTO 84 

83 R=R+D 

84 IF M%(R,S)=15 THEN 75 

85 GOTO 59 

86 NEXT IWALK 

87 MH=H:MV=V: 1 = INT(RND(1)*(MH-1) 

) +2 

88 M%(1,1)=0:M%(1,2)=M%(1,2)-( (M 
%(I,2)/8)AND 1)*8 

89 H=INT(RND(1)*(MH-1))+2:Hl=H:V 
1=V 

90 print"{clr}{giu 1 }labirinto co 
MPLETATO.":GOSUB2000: GOTO 105 

91 REM STAMPA DEL LABIRINTO VIST 
O DALL'ALTO 

92 HZ=INT(79/MH):VZ=INT(49/MV) 

93 SYS IN:POKE 214,24:PRINT TAB( 
25);"{SU}{ 9 SPAZI}{HOME}"; 

94 POKE HX,1+HZ:POKE HY,1+VZ:SYS 

PL:POKE HY,MV*VZ + 1: SYS LI 

95 FOR J=1 TO MV:FOR 1=2 TO MH:N 
=M%(I,J):X=I*HZ+1:Y=J*VZ+1 

96 IF((N/2)AND 1)=1 THEN POKE HX 
,X:POKE HY,Y:SYS PL:POKE HX,X 
-HZ: SYS LI 

97 IF((N/4)AND 1)=1 THEN POKE HX 
,XrPOKE HY,Y:SYS PL:POKE HY,Y 
-VZ:SYS LI 

98 NEXT:NEXT 

99 RETURN 

100 REM POSIZIONE DEL GIOCATORE 

101 X=H*HZ-1:Y=V*VZ-1:POKE HX,X+ 
1:POKE HY,Y+1:SYS PL 

102 POKE HX,X-HZ+2:POKE HY,Y-VZ+ 
2:SYS LI :POKE HY,Y+2: SYS PL 

103 POKE HX,X+2:POKE HY,Y-VZ+2:S 
YS LI 

104 RETURN 

105 FOR X=1 TO MH:FOR Y=1 TO MV: 
M%(X,Y)=M%(X,Y)+M%(X,Y)*16 :N 
EXTY,X 

106 REM IL GIOCO 

107 F=INT(RND(1)*4)+1:ON F GOTO 
108,109,110,111 

108 R=0:S=-l:GOTO 112 

109 R=1:S=0:GOTO 112 

110 R=0:S=1:GOTO 112 

111 R=-1:S=0 

112 PRINT"{CLR}{GIU'}{DES}PREMI 
{RVS }j {OFF} PER ANDARE A SIN 
ISTRA" 

113 PRINT"{GIU'}{DES}PREMI {RVS} 
L{OFF} PER ANDARE A DESTRA" 
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114 PRINT"{GIU*)(DES)PREMI {RVS} 
SPAZIO{OFF} PER ANDARE AVANT 
1" 

115 PRINT"{GIU’}(DES)PREMI {RVS} 
M{OFF) PER VEDERE DALL'ALTO 
IL LABIRINTO" 

116 PRINT"{ 3 GIU'}PREMI UN TAST 
O QUALUNQUE PER CONTINUARE" 

117 GOSUB 30 :PRINT"{CLR}";:SYS49 
152:GOSUB 5 

118 REM SMISTAMENTO COMANDO 

119 GOSUB 30 

120 ON -(A$-"J")-2*(A$-"L")-3*(A 
$ = " ")-4*(A$-"M")GOTO 122, 1 
24,131,136 

121 GOSUB2000:GOTO 112 

122 F = F-1 :IF F<1 THEN F=4 

123 GOTO 125 

124 F=F+1:IF F>4 THEN F=1 

125 ON F GOTO 126,127,128,129 

126 R=0:S»-1:GOTO 130 

127 R=1:S=0:GOTO 130 

128 R=0:S=1:GOTO 130 

129 R=-1:S=0 

130 GOTO 135 

131 Z=M%(H,V):T«Z*2t(F-l):T=(T/l 
28)AND 1:IF T=1 THEN GOSUB 2 
000:GOTO 119 

132 NM=NM+1:POKE 214,24:PRINT TA 
B(25);"{SU}MOSSA";NM;"{HOME} 
n . 

133 IF NM<100 THEN WALK(NM)»F 

134 H=H+R:V=V+S:IF V<2 THEN 147 

135 GOSUB 5 : GOTO 119 

136 IF NOT MS THEN 138 

137 POKE FL,218 :POKE FH,49:POKE 
TL,0 :POKE TH,128:SYS SC:GOTO 

139 

138 GOSUB 92 :POKE FL,0:POKE FH,1 
28 :POKE TL,218 :POKE TH,49:SY 
S SC:MS=-1 

139 GOSUB 101 :PRINT"{HOME}STAI A 
NDANDO VERSO ";:ON F GOTO 14 
0,141,142,143 

140 PRINT"NORD";:GOTOl44 

141 PRINT"EST";:G0T0144 

142 PRINT"SUD";:G0T0144 

143 PRINT"OVEST"; 

144 PRINT".{ 2 SPAZI}PREMI UN TA 
STO QUALSIASI PER CONTINUARE 
":GOSUB 30 

145 PRINT"{CLR}" 

146 GOSUB 5:GOTO 119 

147 GOSUB2000:V=Vl:H=Hl:IFMS THE 
N POKE FL,218 :POKE FH,49:POK 
E TL,0 :POKE TH,128 

148 IF MS THEN SYS SC:GOTO 150 

149 GOSUB 92 


GOSUB 101 

PRINT"{HOME}{GIU')CONGRATULA 
ZIONI:SEI USCITO CON";NM;"PA 
SS I ! " 

REM VIASUALIZZAZIONE CAMMINO 
PERCORSO 

POKE HX,H*HZ-HZ/2+l:POKE HY, 

V*VZ-VZ/2 + 1: SYS PL 

FOR N-l TO NM:IF N>100 THEN 

158 

F-WALK(N): V»V+(F“l)-(F»3):H= 
H+(F-4)-(F-2) 

POKE HX,H*HZ-HZ/2+l:POKE HY, 

V*VZ-VZ/2+1:SYS LI 

NEXT 

PRINT:END 

DATA32,33,48,173,58,3,133,2 
DATAI73,59,3,133,195,32,0,49 

DATAI73,62,3,205,63,3,16,8 
DATA240,6,32,173,48,76,3,48 
DATA96,169,128,24,109,60,3,5 
6 

DATA237,58,3,141,63,3,169,12 
8 

DATA24,109,61,3,56,237,59,3 
DATAI41,64,3,162,128,142,66, 

3 

DATA142,69,3,232,142,67,3,14 
2 

DATA68,3,173,63,3,201,128,17 
6 

DATAI1,169,127,141,68,3,169, 

0 

DATA56,237,63,3,41,127,141,6 
3 

DATA3,173,64,3,201,128,176,1 
1 

DATA169,127,141,67,3,169,0,5 
6 

DATA237,64,3,41,127,141,64,3 

DATA173,63,3,205,64,3,176,32 

DATA174,63,3,172,64,3,142,64 

DATA3,140,63,3,173,68,3,141 
DATA66,3,173,67,3,141,69,3 
DATA169,128,141,67,3,141,68, 
3 

DATA173,63,3,74,141,65,3,169 

DATA0,141,62,3,96,173,68,3 
DATA56,233,128,24,109,58,3,1 
41 

DATA 58,3,173,69,3,56,233,128 
DATA24,109,59,3, 141,59,3,17 3 


150 

151 

152 

153 

154 

155 

156 

157 

158 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 
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440 DATA63,3,141,65,3,173,66,3 
450 DATA56,233,128,24,109,58,3,1 
41 

460 DATA58 >3,173,67,3,56,233,128 
470 DATA24 >109,59,3,141,59,3,96 
480 DATA169,0,133,168,169,32,133 
, 196 

490 DATA165,2,201,80,176,56,165, 
195 

500 DATA201,50,176,50,234,234,23 

4.234 

510 DATA70,2,38,168,106,38,168,1 
33 

520 DATA195,10,10,101,195,10,10, 
38 

530 DATAI96,10,38,196,234,234,23 
4,133 

540 DATA195,166,168,189,99,49,13 
3,168 

550 DATAI64,2,177,195,162,15,221 
,103 

560 DATA49,240,4,202,16,248,96,1 
73 

570 DATA98,49,240,6,138,5,168,17 
0 

580 DATA208,8,138,73,255,5,168,7 
3 

590 DATA255,170,189,103,49,164,2 
,145 

600 DATAI95,96,1,1,2,4,8,32 
610 DATAI26,123,97,124,226,255,2 
36,108 

620 DATA127,98,252,225,251,254,1 

60.234 

630 DATAO, 173,60,3,141,58,3-, 133 


DATA2,173,61,3,141,59,3,133 
DATAI95,32,0,49,96,162,128,1 
60 

DATAO,134,254,132,253,177,25 
3,41 

DATAI27,201,64,48,2,169,32,1 
45 

DATA 253,200,208,241,232,224, 
132 208 

DATA232,169,0,170,157,58,3,2 
32 

DATA 224,12,208,248,96,169,21 
8,133 

DATA251,169,49,133,252,169,0 
,133 

DATA253,169,128,133,254,162, 
4,160 

DATAO,177,251,145,253,136,20 
8,249 

DATA230,252,230,254,202,48,2 
,208 

DATA240,96 

DATA162,0,169,1,157,0,216,15 
7 

DATAO, 217,157,0,218,157,0,21 
9 

DATA232,208,241,96,234,234,2 
34,0 

SO=54272:FORE=SOTOSO+28:POK 
E E,0:NEXT 

POKE54296,15 :POKE54277,51:P 
OKE54278,211 

POKE54276,33 :POKE54273,63 :P 
OKE54272,75 

FORT=lTO100:NEXT:POKE54276, 
32:FORT=lTO100:NEXT 
FORE=SOTOSO+28:POKE E,0:NEX 
T 

RETURN 
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Laser Cunner 


Sit’te g li addetti al cannone laser su un'astro¬ 
nave dell'impero gallattico attaccata da una 
formazione di navi aliene. Dovete abbattere 
le navi spaziali nemiche sfruttando il riparo 
offerto da una barriera di energia; quest'ulti¬ 
mo però viene intaccata dai colpi nemici fino 

5 P0KE53280,0 :P0KE53281 ,0:GOSUB1 
90 :PRINT"{CLR}":G0T08 5 

10 POKEROW,X:POKECOL,Y:PRINT" 
{SU}: RETURN 

11 POKEROW,A:POKECOL,B:PRINT" 
{SU}"; : RETURN 

12 POKEROW,Z:POKECOL,B:PRINT" 
{SU}"; : RETURN 

13 GOSUBl0:PRINTG1$ ; 

14 GOTO3 8 

16 TT=TT+1 :R = 1+INT(RND(1)*1 0) : IF 
TT>TDTHEN1FR=10GOTO43 
13 IFPEEK(197)=6THEN29 

19 IFPEEK(197)=5THEN23 

20 IFPEEK(197)=3THEN2 6 

21 G0T016 

23 X = X-1:IFX<1THENX=1 

24 GOSUBl0:PRINTG1$;:G0T01 6 
26 X=X+1:IFX>21THENX=21 

2 7 GOSUBl0:PRINTG2$;:GOTOl 6 

29 GOSUBl80 

30 X = X+1 :Y=3:GOSUBl0:FORI = lTOl 85 
STEP5:PRINT"{PUR}>";:NEXT::GO 
SUBÌ 0 

31 FORI = 1T03 7 :PRINT" ";:NEXT:X=X 
-1 :Y=0 

33 IFX+1=ATHEN60 

34 IFX+1=A+1THEN60 

35 IFX+1=A+2THEN60 

36 GOTO!6 

38 A=1+INT(RND(1)*21):IFA<3THENA 
= 3 

39 IFA>19THENA=19 

41 GOSUBl1 :PRINTINS:GOTOI6 
43 GOSUBl70:Z=A+1 :B=B-1:GOSUBl2: 
FORI = 1 T072STEP2 : PRINT" {RED} *- 
{ 2 SIN}";:NEXT 
45 PRINT"{DES}{SU}N{ 2 GIU'} 

{SIN}M":GOSUBl2 : FORI = 1T036:PR 
INT" T 2 SIN}";:NEXT:PRINT" 

{DES}{SU} { 2 GIU'}{SIN} ":B= 
B+l 

47 HT=SR+((Z-l)*40):RD=PEEK(HT) 

48 IFRD=160THENRN=1:G0T057 


ad essere, alla lunga, perforata. Quando ciò 
dovesse accadere, il gioco finisce inesorabil¬ 
mente. Le istruzioni circa i tasti da premere 
per lo spostamento del cannone laser e per 
fare fuoco sono inserite nel programma, 
buon divertimento! 


49 IFRD= 2 31THENRN = 2 : GOTO57 

50 IFRD = 2 34THENRN = 3 : GOTO5 7 

51 IFRD=246THENRN=4: GOTO57 

52 IFRD = 9 7THENRN = 5; GOTO5 7 

53 IFRD=117THENRN = 6: GOTO57 

54 IFRD=116THENRN = 7: GOTO57 

55 IFRD=101THENRN=8:G0T057 

56 IFRD = 32THENRN = 8: GOTO6 8 

57 FORI=1TORN:READFE:NEXTrPOKEHT 
, FE.-RESTORE: GOTOI 6 

58 DATA 231,234,246,97,117,116,1 
01 , 32 

60 GOSUBl!:PRINT"{RED}{ 2 SIN}- 
{SU} {YEL} + { 2 GIU'H 3 SIN} 
{GIU'}{ 2 SIN}[<*>]{GIU'} 

{RVS} £" 

61 FORI = 1T020 :NEXT:GOSUBl1 :PRINT 
"{ 2 SIN} {SU} { 2 GIU'} 

{ 3 SIN}{GIU'}{ 2 SIN} {GIU'} 

62 GOSUBll:PRINT"{ 2 SU}{SIN} 

£{ 2 GIU'H 3 SIN} {RED}M{YEL} 

T{ 2 GIU’}{ 3 SIN}{YEL}~ 

{GIU'}{SIN}{GIU'}{SIN}" 

63 FORI = 1T020 :NEXT;GOSUBl1 :PRINT 
"{ 2 SU}{SIN} { 2 GIU'} 

{ 3 SIN}{ 2 SPAZI}{ 2 GIU'} 

{ 3 SIN} {GIU'}{SIN}{GIU'} 

{SIN}":GOSUBl60 

64 FORI=1TO20:NEXT 

65 GOSUBll:PRINT" {SIN}{GIU'} 

{SIN}{GIU'} {SIN}{GIU'}":GOSU 
B77 

67 SC=SC+1:TT=0:G0T038 

68 FORI=1TO500:NEXT 

70 PRINT"{CLR}{WHT}{ 3 GIU'} 

{ 8 SPAZI}ABBATTUTI";SC;"INVA 
SORI":GOSUBl70 :GOSUBl70 :GOSUB 
1 60 

71 GOSUBl60:GOSUBl60:GOSUBl60:PR 
INT"{ 3 GIU'}{ 9 SPAZI}GIOCHI 

ANCORA ?{ 3 SPAZI}" 
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72 GOSUBl70 :GOSUBl60 :GETC$:IFC$ = 
""THEN72 

73 IFC$< >"S"ANDC$< >"N"THEN72 

74 IFC$="N"THENPRINT"{CLR}":END 

75 SC=0:GOTOl23 

77 SR=SR-2:P=46 

78 POKESR+15,P:POKESR+28,P:POKES 
R+l27,P:POKESR+158,P:POKESR+1 
75,P:POKESR+226,P 

79 POKESR+330,P:POKESR+460,P:POK 
ESR+474,P:POKESR+390,P:POKESR 
+575,P 

80 POKESR+60 5,P:POKESR+628,P:POK 
ESR+703,P:POKESR+715,P:POKESR 
+730,P 

81 POKESR+806,P:POKESR+819,P:POK 
ESR+83 7,P:POKESR+8 6 8,P:POKESR 
+883,P 

82 POKESR+904,P:POKESR+928,P:POK 
ESR+94 7,P:POKESR+964,P:POKESR 
+992,P 

83 SR=SR+2:RETURN 

84 REM 

85 ROW=214:COL=211:X=5:Y=.:IN$=" 
{YEL}{RVS}£{GIU'}{SIN}{RVS}► 
{OFF}{GIU'T{SIN}[<*>]{WHT}":B 
=39:Gl$="{CYN}{RVS } V{OFF} 

{GIU 1 }{SIN}+{GIU'}{SIN}{RVS} 

V{OFF}{GIU'T{SIN} " 

86 G2$="{CYN}{SU} {GIU'HSIN} 

{RVS}V{OFF}{GIU'}{SIN}+{GIU'} 
{SIN}TRVS}V{OFF}":SR=l726:M=2 
1 :I=RND(-tT) 

87 GOSUB77:GOT091 

88 REM 

89 POKEROW,M:POKECOL,Y:PRINT" 

{SU}: RETURN 

90 REM 

91 M=M-1:G0SUB89:PRINTG1$; 

92 IFM>7THEN91 

93 FORI=lTO200:NEXT:GOSUB89 

94 PRINT"{GIU'}{ 2 DES}"; : FORI = 1 
TOl10STEP10 :PRINT"{GRN}>"; : NE 
XT:PRINT"{RVS} LASER GUNNER 
{OFF}"; 

95 GOSUBl80 : FORI = 1TOl20STEP1 0:PR 
INT">"; :NEXT 

96 GOSUB89:PRINT"{GIU'}{ 2 DES} 

: FORI = 1TOl1 SPRINT" :NEXT: 
PRINT"{ 14 DES}"; 

97 FORI = 1TOl2 :PRINT" ";:NEXT:GOS 
UBI 60 

98 GOSUB89:M=M+1:PRINT"{GIU’}"G2 

$; 

99 IFM<12THEN98 

100 GOSUB89 :PRINT"{GIU'} 

{ 2 DES}"; : FORI = 1TO200:NEXT 


101 FORI = 1TOl 70STEP1 0 :PRINT" 

{RED}>"; :NEXT:GOSUBl70:PRINT 
"{PUR}DI"; 

102 FORI = 1TOl70STEP10 :PRINT" 
{RED}>";:NEXT:GOSUBl70 

103 GOSUB89 :PRINT"{GIU'} 

{ 2 DES}";:FORI=lTOl7:PRINT" 
";:NEXT:PRINT"{ 2 DES}";:FO 
RI=1TOl7 

104 PRINT” ";SNEXT 

105 GOSUB89:M=M+1:PRINT"{GIU'}"G 
2$; 

106 IFM<16THEN105 

107 GOSUB89 :PRINT"{GIU'} 

{ 2 DES}";:FORI=lTO200:NEXT 

108 FORI = lTOll2STEP10 SPRINT" 
{PUR}>";:NEXT:GOSUBl70:PRINT 
"{YEL} PAPERSOFT "; 

109 FORI = 1TOl1OSTEPl0 S PRINT" 
{PUR}>";:NEXT:GOSUBl70 

110 GOSUB89SPRINT"{GIU'} 

{ 2 DES}"; :FORI = lTOl2:PRINT" 
";SNEXTSPRINT"{ 11 DES}"; 

111 FORI = lTOl 3:PRINT" ";:NE.XT 

112 GOSUB89:M=M+1 :PRINT"{GIU'}"G 
2$; 

113 IFM<22THEN112 

114 GOSUB89:PRINT"{GIU 1 } 

{ 2 DES}";:FORI=lTO200:NEXT 

115 FORI=lTO90STEP1OsPRINT"{RED} 
>";SNEXT:GOSUBl80 SPRINT" 

{CYN}{RVS}VUOI LE ISTRUZIONI 
?{OFF}"; 

116 FORI=lTOl00STEP1OsPRINT" 

{RED}>"; :NEXT:GOSUBl60 

117 GOSUB89:PRINT"{GIU'} 

{ 2 DES}" ; :FORI = lT09SPRINT" 

"; :NEXT:PRINT"{ 19 DES}"; 

118 FORI = 1TOlOsPRINT" "; :NEXT 
1 1 9 REM 

120 GETC$:IFC$=""THENGOSUB170:GO 
SUBÌ 70:GOSUBl70:GOSUBl60:GOT 
01 1 4 

121 IFC$="S"THENl34 

122 REM 

123 PRINT"{CLR}{YEL}{ 6 GIU'} 

{ 5 SPAZI}{RVS}{ 2 SPAZI}SCE 
GLI IL LIVELLO{ 4 SPAZI}(1-3 
) {OFF}” 

124 GOSUBl70sGETC:IFC=0THEN124 

125 IF03THEN1 24 

126 PRINT"{CLR}{YEL}{ 6 GIU'} 

{ 8 SPAZI}{RVS} PREMI [SPAZI 
O] PER INIZIARE {OFF}" 

127 GOSUBl60:GETC$:IFC$ = ""THEN12 
7 

128 IFC=1THENTD=15 
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129 IFC=2THENTD=8 

130 IFC=3THENTD=0 

131 REM 

132 PRINT"{CLR}":GOSUB77:PRINT" 
{HOME}";:FORI=0TO23:PRINTTAB 
(2)"{RVS}{GRN} {OFF}":NEXT:G 
OTOl 3 

1 33 REM 

134 PRINT"{CLR}{GIU'}{RVS}{CYN}S 
EI IL CANNONIERE LASER SU UN 
'ASTRONAVE" 

135 PRINT"{GIU'}{ 4 SPAZl}SOTTO 
ATTACCO DI ALIENI INVASORI" 

136 PRINT"{GIU'}{ 3 SPAZl}DEVI M 
UOVERE IL LASER NELLA GIUSTA 

II 

137 PRINT"{ 2 SPAZI}POSIZIONE,ED 

USARLO PER DISTRUGGERE" 

138 PRINT"{ 11 SPAZI}LA NAVE ALI 
ENA" 

141 PRINT"{ 2 GIU'}{ 3 SPAZI}SEI 

PROTETTO DA UN CAMPO DI FOR 
ZA" 

142 PRINT"{ 4 SPAZI}MA QUESTO VI 
ENE INDEBOLITO DA” 

143 PRINT"{ 3 SPAZI}OGNI COLPO S 
PARATO DALL'INVASORE" 

144 PRINT"{ 2 GIU'}{ 2 SPAZI}UN 
COLPO IN UN BUCO E' LA TUA F 
INE" 

145 PRINT"{ 2 GIU'}{ 7 SPAZI}PER 

MUOVERE SU{ 2 SPAZI}- {RVS} 


F3 {OFF}{ 4 SPAZI}" 

PRINT"{ 7 SPAZI}PER SPARARE 
{ 5 SPAZI}- {RVS} F5 {OFF} 

{ 4 SPAZI}" 

PRINT"{ 7 SPAZI}PER MUOVERE 
GIU'- {RVS} F7 {OFF} 

{ 4 SPAZI}" 

PRINT"{ 2 GIU'}{ 8 SPAZI} 
{RVS}PREMI SPAZIO PER CONTIN 
UÀ RE" 

GETC$:IFC$=""THEN1 49 

GOTOl23 

REM 

POKEWl .21 :POKEW2,129:FORZ = 20 
TOlSTEP-2:POKEHl ,Z:POKELl ,Z 
POKEH2,INT(RND(1)*70) +3:POKE 
L2 ,Z:NEXT:POKEWl,0 :POKEW2,0 : 
RETURN 

POKEWl ,17:POKEW2,129:FORZ = 35 
TOOSTEP-7 :POKEHl ,Z:POKELl ,Z: 
POKEL2 Z 

POKEH2 INT (RND ( 1 ) *70) : NEXT : P 
OKEW1,0 :POKEW2,0 : RETURN 

POKEWl,21 :FORZ = 1 T03:FORZX=OT 
01 00STEP15:POKEHl ,ZX:POKEL1 , 
ZX:NEXT:NEXT 
POKEWl ,0 : RETURN 
POKE54296,15:POKE54277,15:PO 
KE 5 4 2 91 ,65 :W1 =54276:W2 = 5429 
0:H1=54273:L1=54272 
H2=54287:L2=54286:RETURN 


1 46 

1 47 

1 48 

1 49 

1 50 

1 55 

1 60 

1 61 

1 70 

1 71 

1 80 

1 81 

1 90 

1 91 
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tfind Boggle 


Mind Boggle è un gioco di logica ispirato 
al classico Master Mmd. Si può giocare da 
soli o con altri, tendanto di scoprire la combi¬ 
nazione nel minor numero di tentativi. Ini¬ 
zialmente "Mind Boggle" seleziona quattro 
dei sei colori sistemandoli in una combinazio¬ 
ne casuale. Lo scopo del gioco è quello di in¬ 
dividuare i quattro colori nella loro giusta po¬ 
sizione. usando le indicazione del program¬ 
ma (un puntino nero indica un colore giusto 
nella giusta posizione; un puntino bianco sol¬ 


100 DIMC(4) ,G (4) :POKE53281 , 1 5 

101 SO = 54272:FOR T=SO TO SO+24 
:POKET,0 :NEXT:X=0 

102 POKESO+24,15:POKESO+5,1 7 :POK 
ESO+6,241 

300 PRINT"{CLR}{ 13 GIU'} 

{ 14 DES}{BLKjMIND BOGGLE 
{ 5 GIU'}":FORT=lTO 1000:NEX 
T 

340 PRINT"{CLR}{20 GIU'}" 

350 PRINT "{ 4 DES}{BLK} {RVS} 

{ 2 SPAZI}1 {OFF} {WHT}{RVS} 
{ 2 SPAZI}2 {OFF} {RED}{RVS} 
{ 2 SPAZI}3 {OFF} {BLU}{RVS} 
{ 2 SPAZI}4 {OFF} {PUR}{RVS} 
{ 2 SPAZI}5 {OFF} {GRN}{RVS} 
{ 2 SPAZI}6 {OFF}{BLK}" 

365 PRINTSPC(6)"{BLK}STO SCEGLIE 
NDO I 4 COLORI{BLK}":FORL=lT 
01 00 

366 POKES2,INTfRND(1)*1 28)+1 28:F 
OR M=1 TO 10 :NEXTM:NEXTL:POK 
ES2,0:GOSUB4050 

4 00 A$ = "l 234 56":R=INT(RND(1 ) *6) + 
1 :A1$=MID$(A$,R,1) :Al=VAL(Al 
$) 

401 R=INT(RND(1)*6)+1:A2$=MID$(A 
$,R,1):IFAl$=A2$THEN401 

402 A2 =VAL(A2$ ) 

403 R=INT(RND(1)*6)+1:A3$=MID$(A 
$,R,1):IFAl$=A3$ORA2$=A3$THE 
N4 0 3 

404 A3=VAL(A3$) 

405 R=INT(RND(1) *6)+1 :A4$=MID$(A 
$,R,1):IFAl$=A4$ORA2$=A4$ORA 
3$=A4$THEN405 

406 A4 =VAL( A4$ ) 

500 FOR T= ITO 1000:NEXT 


tanto l'individuazione di un colore giusto). 
Ogni colore è caratterizzato da un diverso 
suono musicale. Quando il computer chiede 
"COLORI SCELTI?" bisogna immettere la se¬ 
quenza dei quattro possibili colori e premere 
RETURN (se si immette un numero non 
compreso tra I e ó appare SCELTA 
ERRATA). A questo punto il computer analiz¬ 
za la sequenza giusta, potendo in ogni caso 
ricominciare rispondenendo alla domanda 
"VUOI GIOCARE ANCORA?". 


510 POKESO,100:POKESO+l,100:POKE 
SO+4,17 :FORL=1TOl00:NEXTL:PO 
KESO+4,16 

540 POKE214,21 :POKE21 1 ,5:PRINT:P 
RI NT"{ 34 SPAZI}" 

550 . ..POKE214,21:POKE211,0 :P 

RINT:INPUT "COLORI SCELTI";X 

$ 

600 IFLEN(X$)< >4THENGOSUB40 50 :GO 
T03300 

700 FORE= 1 T04:V=VAL(MID$(X$,E, 1) 

) 

705 IFV<1ORV5 6THENGOSUB4050 : GOTO 
3300 

710 NEXTE 

900 X-X+l :B = 0:W=0:AA$ =Al$+A2$+A3 
$+A4$ 

901 FORJ=1T04 

902 G(J)=VAL(MID$(X$,J,1)) 

903 C(J)=VAL(MID$(AA$,J,1)) 

904 IFG(J)=C(J)THENB = B+1 :G ( J)=0 : 
C(J)=0 

905 NEXTJ 

906 FORJ = l T04:IFC(J)=0THEN91 2 

907 H=0:FORK=lT04 

908 IFC(J)=0THEN911 

909 IFC(J)<>G(K)THEN911 

91 0 H=1 :G (K) =0 :C ( J) =0 

911 NEXTK:W=W+H 

912 NEXTJ 

1000 ONXGOTOl100,1105,1110,1115, 
1120,1125,1130,1135,1140,11 
45 

1100 PRINT"{HOME}{ 7 DES}{GIU'} 

1 :GOT01200 

1105 PRINT"{HOME}{ 7 DES} 

{ 2 GIU' } 2 : GOTO!200 
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mo PRINT" {HOME} { 7 DES} 

{3 GIU'} 3 "; :GOTOl200 
1115 PRINT"{HOME}{ 7 DES} 

{ 4 GIU'} 4 "; :GOTOl200 
1120 PRINT"{HOME}{ 7 DES} 

{ 5 GIU'} 5 ";:GOTOl200 
1125 PRINT"{HOME}{ 7 DES} 

{ 6 GIU'} 6 ";:GOTOl200 
1130 PRINT"{HOME}{ 7 DES} 

{ 7 GIU'} 7 :GOTOl200 

1135 PRINT"{HOME}{ 7 DES} 

{ 8 GIU'} 8 "; :GOTOl200 
1140 PRINT"{HOME}{ 7 DES} 

{ 9 GIU'} 9 "; :GOTOl200 
1145 PRINT"{HOME}{ 7 DES} 

{ 10 GIU'}10 

1200 X1=VAL(LEFT$(X$ , 1)):X2=VAL( 
MID$(X$,2,1)):X3=VAL(MID$(X 
5/3,1)) 

1210 X4=VAL(RIGHT$(X$, 1 ) ) 

1220 P=0:T=0 

1 300 P=P+1 rONXlGOTOl 700,1 701 , 1 70 

2,1703,1704,1705 
1400 P=P+1:ONX2GOT01700,1701,170 

2,1703,1704,1705 
1 500 P=P+1 -.ONX3GOT01 700,1701 ,170 

2,1703,1704,1705 
1600 P=P+1:ONX4GOT01700,1701,170 

2,1703,1704,1705 

1700 PRINT"{BLK}{RVS}{ 3 SPAZI} 
{OFF} "; :POKESO+1,100 rGOTOl 
750 

1701 PRINT"{WHT}{RVS}{ 3 SPAZI} 
{OFF} -.POKESO+1 ,1 24:GOTOl 
750 

1702 PRINT"{RED}{RVS}{ 3 SPAZI} 

{OFF} :POKESO+1,140rGOTOl 

750 

1703 PRINT"{BLU}{RVS}{ 3 SPAZI} 

{OFF} :POKESO+1,166:GOTOl 

750 

1704 PRINT"{PUR}{RVS}{ 3 SPAZI} 
{OFF} POKESO+1,150rGOTOl 
750 

1705 PRINT"{GRN}{RVS}{ 3 SPAZI} 
{OFF} :POKESO+l,185rGOTOl 
750 

1750 POKESO+4,17:FORL=1T099:NEXT 
L:POKESO+4,16 :FORL=1T0250 :N 
EXTL 

1751 ONPGOTOl400,1500,1600 
1761 ONTGOTO2072,2073,2074,2075 
1800 PRINT" :IFB=0THEN2000 
1810 GOSUB3100 

1820 ONBGOTO1900,1901,1902,1903 

1900 PRINT"{BLK}Q";:GOTO2000 

1901 PRINT"{BLK}I 2 Q}";:GOTO200 


1902 PRINT"{BLK}{ 3 Q}";:GOTO200 
0 

1903 PRINT"{BLK}{ 4 Q}";:GOTO400 
0 

2000 IFW=0THEN2060 

2010 GOSUB3200 

2020 ONWGOTO2050,2051,2052,2053 

2050 PRINT"{BLK}{RVS}Q{OFF}":GOT 
02060 

2051 PRINT"{BLK}{RVS}{ 2Q}{OFF} 
":GOTO2060 

2052 PRINT"{BLK}{RVS}{ 3 Q}{OFF} 
":GOTO2060 

2053 PRINT"{BLK}{RVS}{ 4 Q}{OFF} 

II 

2060 PRINT"{BLK}{HOME} 

{ 15 GIU'}":PRINT" 

{ 21 SPAZI}" 

2062 PRINT"{HOME}{ 9 DES} 

{ 15 GIU'}" 

2065 IFXOl 0THEN500 

2066 POKESO+4,32:FORL=lTOl5rFORM 
= 200T0220+L* 2 :POKESO+1,M: NE 
XTMrNEXTL 

2068 POKESO+4,32 

2070 PRINT"{HOME}{ 14 GIU'}":PRI 
NT"{ 10 SPAZI}"; 

2071 T=T+1rONAlGOTOl700,1701,170 

2,1703,1704,1705 

2072 T=T+1:ONA2GOT01 700,1 701 ,1 70 

2,1703,1704,1705 


2073 T=T+1:0NA3G0T01700,1701,170 

2,1703,1704,1705 

2074 T=T+1:ONA4GOT01700,1701,170 

2,1703,1704,1705 

2075 PRINT"{ 4 SPAZI}":PRINT" 

{BLK}{ 5 SPAZI}COLORI GIUST 
I{ 3 SPAZI}PREMI RETURN" 
2080 IFPEEK (197)01 THEN2080 

2085 GETT$:PRINT"{RED}{CLR} 

{ 9 GIU'}{ 10 DES}HAI FALLI 
TO MISERAMENTE!" 

2086 PRINT"{ 2 GIU'}{ 10 DES} 
{BLU}10 TENTATIVI SONO TROP 
PI." 

2090 POKESO+4,33 

2096 F0RL=1T06:POKESO+1,80:FORM= 
1TO400 rNEXTM:POKESO+4,32:FO 
RM=lTO400:NEXTM 
2098 NEXTL:POKESO+4,32 
3000 PRINT"{CLR}{ 8 GIU'} 

{ 9 DES}{BLK} VUOI GIOCARE 
ANCORA?{ 2 GIU'}" 

3005 PRINT"{ 15 DES}SI O NO?" 
3007 GETT$:IFT$=""GOTO3007 
3010 IFT$ = "S" THENPOKEl98,OrGOTO 
1 01 
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3012 IF T$="N" THEN3014 

3013 GOTO3007 

3014 GETT$:PRINT"{CLR} 

{ 10 GIU'}{ 15 DES}{BLK}COD 
ARDO!!" :PRINT:PRINT: END 
3100 POKESO+4,17:FORL=1OOTOl 54 :P 
OKESO+1,L:NEXTL:POKESO+4,1 6 
:RETURN 

3200 POKESO+4,17:FORL=l00TO48STE 
P-l:POKESO+1,L:NEXTL:POKESO 
+4,16:RETURN 

3300 PRINT"{SU}SCELTA ERRATA! 
{SU}":FORL=lTO500:NEXTL 

3301 FORL=1T0999 :NEXTL:GOSUB4050 
: GOTO 50 0 

4000 PRINT:PRINT:PRINT"{BLK} 

{ 7 DES}HAI VINTO!!! PREMI 
RETURN" 

4005 POKESO+4,33:FORM=l80TO100ST 
EP-5:POKES2,M:NEXTM:FORM= 1 0 
0TO200STEP 5 

4006 POKESO+1,M:NEXT M:POKE SO+4 
,32 

4010 IFPEEK (197)01 THEN4005 


4011 PRINT"{CLR}{ 10 GIU'} 

{ 9 DES}"; 

4015 IFX=1THENPRINT"{RED} 

{ 5 SPAZI}ECCELLENTE !": GOTO 
4020 

4016 IFX=20RX=3THENPRINT"{GRN} 

{ 7 SPAZI}ABILE ! ! !" :G0T04 02 
0 

4017 IFX=40RX= 50RX=6THENPRINT" 

{BLU}{ 4 SPAZI}PIUTTOSTO BE 
NE !":GOTO4 020 

4018 IFX=70RX=8THENPRINT"{PUR} 

{ 9 SPAZI}BENINO !":G0T04020 

4019 PRINT"{ 2 SPAZI}CE L'HAI FA 
TTA APPENA !" 

4020 POKESO+4,33 :FORL=1TO20:FORM 
=148T0200STEP5:POKES2,M:NEX 
TM 

4021 FOR M=200TO 148STEP-5 :POKES 
O+l,M:NEXTM:NEXTL:POKESO+4, 

32 

4030 GOTO3000 

4050 PRINT"{ 32 SPAZI}":RETURN 
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Super sprite 


SuperSprite, un essere dotato di poteri sopran¬ 
naturali, deve volare attraverso quattro bar¬ 
riere di kryptomte dotate solo di stretti passaggi; 
fortunatamente voi potete aiutarlo: muoven¬ 
do accortamente attraverso i tasti di funzione 
le barriere stesse dovete cercare di fargli at 
traversare indenne lo schermo facendo in mo¬ 
do che nel suo imprevedibile volo non incontri 
mai le mortali barriere. 

Avete 20 manches a disposizione e se Super¬ 
Sprite urta una barriera perdete una manche 
e il vostro amico ricommcerà il suo folle volo 
dall'alto dello schermo. 


110 U=RND(-TI):POKE657,128 
120 REM MEMORIZZAZIONE PREC.SITU 
AZIONE,I NIZIALIZZAZI 

ONE NUOVA,COSTRUZIO 
125 REM NE SPRITE,STAMPAGGIO IST 
RUZIONI 

130 SP=13:V=53248 
140 POKE2 041 ,PEEK(V+24) :POKEV+24 
,22 

150 POKE2042,PEEK(V+32):POKEV+32 
,7 

160 POKE2043,PEEK(V+33):POKEV+33 
,7 

170 POKE2044,PEEK(646):POKE646,0 

180 POKE2045,PEEK(650):POKE650,1 
28 

190 PRINT"{CLR}":GOSUB4000 
200 GOSUB 6000:PRINT"{CLR}":POKE 
V+24,20 

210 DEFFNSC(U)=INT(U+U*GL/1 0) 

220 FORI=lTOl6:T$=T$+"{DES}":NEX 
TI 

230 B$="{ 3 GIU'}"+CHR$(13)+" 

{RVS}":FORI = 0TO39:B$ =B$ + " " : 
NEXTI 

240 V=53248:C=55296:S=1024:SD=54 
272 

250 HS = PEEK(43)+PEEK(44) *256 + 5 
260 TI=135:T2 = 255:T3 = 230:T4 = 1 33 
270 T5=5:T6=9:T7=.992:T8=42:T9=3 
2 

280 BS=PEEK(HS):CH = 65508 :AR=780 


Il programma memorizza il massimo punteg¬ 
gio realizzato all'Interno del LIST stesso e quin¬ 
di. dopo aver battuto il programma, prima di 
salvarlo la prima volta dovete battere 
POKE PEEK(44)x25ó + PEEK(43) + 5,1 
per inizializzare il vostro primo massimo pun- 
teggio: cioè 0! 

Se battete il record, un messaggio vi ricorda 
di salvare il programma per memorizzare il 
nuovo record assoluto. 

Le istruzioni dettagliate del gioco sono inserite 
nel programma stesso: non dovete fare altro 
che inserirlo e... a voi! 


290 REM INIZIALIZ. CURSORI,STAMP 
A SCHERM O DI GIOCO 

300 E(1)=1269:E(2)=1475:E(3)=168 

2 : E ( 4)=1888 

310 POKEV+21,0 :GOSUB2 000 
320 REM CREAZIONE SPAZIO SULLO S 
CHERMO P ER VISUALIZZ 

AZIONE PUNTEGGIO 

325 REM INIZIALIZ. SID,AZZERAMEN 
TO DEL BU FFER DI TAST 

IERA 

330 FORI = 1 080TOl 100 :POKE1,32:NEX 
T 

340 POKESD-<-4,16:POKE3D+1 1,16:POK 
ESD-18,16 

350 POKESD+6,240 :POKESD+1 3, 240 :P 
OKESD+20,240 
360 POKESD+24,15 
370 GETA$ : IFA$<> '"'THEN370 
380 : 

390 REM INIZIO GIOCO (20 MANCHES) 
,PUNTEG GIO PARZIALE 

A ZERO 

400 FORGL=lTO20:PS=0 
410 REM POSIZIONAMENTO SPRITE,ZE 
RO NEL R EGISTRO RI LE 

VAMENTO COLLISIONE 
420 POKEV,23:POKEV+1,49 
4 30 POKEV+23,0:POKEV+3I,0 
440 REM STAMPA PUNTEGGI,INIZIO S 
UONO 

4 50 PRINT"{HOME}{GIU 1 }"T$"MANCHE 
: "GL" PUNTEGGIO:"TS 
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460 PRINT"{GIU'}"T$"{ 2 DES}MIGL 
IOR RISULTATO:"PEEK(HS)-1 
470 POKESD+4,17:POKESD+11,17 : POK 
ESD+18,17 

480 REM ABILITAZIONE SPRITE,VAI 
A 570 SE IL GIOCO E' 

FINITO(FQ SETTATO) 

490 POKEV+21,1 :GOSUBl 000 :IFFQ= 1 T 
HEN550 

500 REM SPRITE FUORI DA SCHERMO 
SE NON C' E' COLLISION 

E,ALTRIMENTI...CRASH! 

510 IFPEEK(V+l)>T3THENFORI=PEEK( 
V+l)T0250 :POKEV+1,1:NEXTI:GO 
TO550 

520 POKESD+4,129:POKESD+11,33:PO 
KESD+18,33 

530 FORI = 7 2TO20STEP-2:POKESD+1 ,1 
:POKESD+8,1-3 :POKESD+15,1-2: 
NEXTI 

540 REM NO SUONO.SALTA A USCITA 
SE FQ E'1 

550 POKESD+4,16:POKESD+l1,16:POK 
ESD+18,16 

560 POKESD+1,0:POKESD+8,0:POKESD 
+ 1 5,0 

570 IFFQ=1THENFQ=0:GL= 20 :NEXT: PO 
KEV+21,0 :GOTO6 70 

580 REM CALCOLO PUNTEGGIO PARZIA 
LE DALL'O RDINATA SPRI 

TE,MODIFICA,AGGIUNTA 
585 REM AL PUNTEGGIO TOTALE 
590 PS = FNSC(INT((PEEK(V+l)—71)/4 
0) ) 

600 TS = TS + INT((PS T1.4+PS)/2) 

610 POKEV+21,0 :POKEV+16,0 
630 REM AGGIORNAMENTO PUNTEGGIO 
RECORD, AZZERAMENTO 

SID,ESCI(3000) 

640 IFPEEK(HS)<TS+1THENPOKEHS,TS 
+ 1 

650 FORI = 0TO24 :POKESD+1,0 :NEXTI 
660 FORI=1TO500:NEXTI 
670 GOSUB3000:CLR:GOT0210 
680 : 

970 REM SOTTOPROGRAMMA-UNA MAN 

CHE DEL GIOCO 

980 : 

990 REM DECIDI QUALE REGISTRO PO 
SIZ.SPRIT E CAMBIARE(W 

) E DI QUANTO(U) 

1000 U2=RND(1):W=V+INT(U2*2):U=G 
L/7 + 2 

1010 REM ESPANDI SPRITE IN DIR.Y 
SE E' VERA L'ESP 

RESSIONE 

1020 IFU2>T7ANDPEEK(V+l)<TlTHENP 
OKEV+23, 1 


1 030 

1 040 

1 050 

1 060 
1 070 

1 080 

1 090 

1 1 00 

1110 

1 1 20 
1 1 30 
1 1 40 

1 1 50 

1 1 60 

1 1 70 
1 1 80 

1 1 90 

1 200 

1 21 0 

1 970 


REM SETTA DOTTAVO BIT DELL 
A POSIZIO NE X DELL 

SPRITE SE NECESSARIO 
IFPEEK(W)+U>T2THENPOKEV+l6, 

i . rarvtf-T?w PKRK (V) +U-T2 : GO iOl 0 


70 

REM AGGIORNA 
COLLISI 

iere superate 


SPRITE.ESCI SE 
ONE O BARR 


POKEW,PEEK (W )+U 


1)>T3THENRETURN 

rem cambio frequenze second 

O POSIZ.Y DELLO SPRI 

TE E NUMERO CASUALE U2 
U=232-PEEK(V+l):POKESD+l,U* 
2/3:POKESD+8,U+3*U2:POKESD+ 

15,U+3 

REM SCANDISCI TASTIERA : ESCI 
SE * ; PAUSA SE' ';VAI A 1 OC 
0 SE NON E'TASTO FUNZ 
SYSCH:U=PEEK(AR):IFU=T8THEN 


TS = 0:FQ=1 : RETURN 


: REM USCITA 
IFU=T9THENGOSUB8000 
IFU<T4THENl000:REMINPUT<Fl 
REM MOVIMENTO LINEA:DX SE N 
ON SCIFTATO(1120) : SIN SE SC 


IFTATO(1140) 

U = U-132 :IFU<T5THENl180:REMI 
NPUTFl-F4 

IFUCT6THEN1 200 : REM INPUT F5 


-F8 

GOTO!000:REM INPUT>F8 
E(U)=E(U)+(E(U)=1100+200*U- 
(U>2)):POKEE(U),223:POKEE(U 
)- 1,160 

POKEE(U)+4 + (U>2) ,32 :POKEE(U 
)+5+'U>2),95:E(U)=E(U)+1:GO 
TOl000 


U=U-4:E(U)=E(U)-(E(U)=1064+ 
200*(U)):POKEE(U)+3+(U>2),9 
5 

POKEE V U)+4+(U>2),160:POKEE( 
U)-1,32 :POKEE(U)-2,223:E(U) 
=E(U)- 1 :GOTOl 000 

REM SOTTOPROGRAMMA-STAMPA 

SCHERMO 


1 980 : 

1990 REM I COLORI DELLE LINEE AL 
LA RIGA 2000 :L’ULT 

IMO PER LE SCRITTE 

2000 PRINT"{CLR}{ 2 GIU’}{PUR}"B 
$"{GRN)"B$"[< 7 >]"B$"[<3>]"B 
$"{HOME}{BLK}" 

2010 FORI=lT04:POKEE(I)-l,223:PO 
KEE(I)+3-(I< 3) ,95 :FORJ = E(I) 
TOE(I)+2-(I< 3) 
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2020 POKEJ,32:NEXTJ,I:RETURN 

-2030 : 

2980 REM SOTTOPROGRAMMA--USCITA 
0 RIENTRO 
2990 : 

3000 PRINT"{CLR}{GIU'}"T$" 

{ 3 SPAZ1}PUNTEGGIO:"TS 
3010 PRINT"{GIU'}"T$"{ 6 SIN} MI 
GLIOR RISULTATO:PEEK(HS) - 

3020 PRINT"{ 3 GIU'jGIOCHI ANCOR 
A (S/N)? 

3030 GETA$:IFA$=""THEN3030 
3040 IFA$ = "S"THENRETURN 
3050 IFA$ = "N"THEN3 070 
3060 GOTO3030 

3070 IFNOT(BS<PEEK(HS))THEN31 00 
3080 PRINT:PRINT"CONGRATULAZIONI 
/ HAI BATTUTO IL RECORD. 
3090 PRINT:PRINT"RICORDA DI SALV 
ARE IL PROGRAMMA. 

3100 PRINT:PRINT"ARRIVEDERCI A P 
RESTO! 

3110 PRINT"{ 4 GIU’}" 

3120 REM RITORNO CONDIZIONI INIZ 
IALI 

3130 POKEV+24,PEEK(2041 ):POKEV+3 
2,PEEK(2042):POKEV+33,PEEK( 
2043) 

3140 POKE646,PEEK(2044):POKE650, 
PEEK(2045):POKE657,0 
3150 END 
31 60 : 

3980 REM SOTTOPROGRAMMA--COSTRUZ 
IONE SPRITE A PAG. 1 3 (832-8 
95 NEL BUFFER NASTRO) 

3990 : 

4000 FORI=0TO41:READU:POKE(64*SP 
)+I,U:NEXT 

4010 F0RI = 4 2T06 3:POKE(64*SP) +1,0 
: NEXT 

4020 POKE2040,SP:POKEV+2 3,1 :POKE 
V+29,1:POKEV+39,0 : RETURN 
4030 RETURN 

4040 DATA 248,0,0,62,0,0,7,128,0 
,1,224 

4050 DATA 0,0,120,0,0,62,0,0,15, 

1 1 2 

4060 DATA 0,7,248,0,7,248,0,6,12 

0,0 

4070 DATA 6,12,0,6,6,0,3,6,0,1,1 
28 

4080 : 

4980 REM FRASI DATA PER PAGINA I 
STRUZIONI 
4990 : 

5000 DATA"DEVI MANOVRARE LE LINE 
E ORIZZONTALI 


5010 DATA"IN MODO CHE SUPERSPRIT 
E POSSA VOLARE 

5020 DATA"SENZA DANNO ATTRAVERSO 
I PASSAGGI. 

5030 DATA"LE QUATTRO LINEE SONO 
CONTROLLATE DAI 

5040 DATA"TASTI DI FUNZIONE SULL 
A TUA DESTRA. 

5060 DATA"PREMENDO UNO DI ESSI F 
ARAI SCORRERE 

5070 DATA"LA CORRISPONDENTE LINE 
A VERSO DESTRA. 

5080 DATA"LO STESSO TASTO SHIFTA 
TO LA*~SPOSTERA ' 

5090 DATA"VERSO SINISTRA. 

{ 10 SPAZI}PREMI SPAZIO 
5100 DATA"PER ARRESTARE IL GIOCO 
, '* ' PER FINIRE. 

5110 DATA" 

5120 DATA"UNA PARTITA CONSISTE D 
I 20 MANCHES. 

5130 DATA"^ PUNTI SI CONQUISTANO 
ATTRAVERSANDO LE 
5135 DATA"LINEE SENZA TOCCARLE. 

5140 DATA"I PUNTEGGI AUMENTANO C 
ON IL~NUMERO DI 

515C DATA"LINEE ATTRAVERSATE SEN 
ZA DANNO E CON IL 
5160 DATA"NUMERO DI MANCHE FATTE 
. COL PROCEDERE 

5170 DATA"DEL GIOCO AUMENTA SIA 
LA VELOCITA' CHE 

5130 DATA"L'IRREGOLARITÀ' DEL VO 
LO DI SUPERSPRITE 
5200 DATA"IL MASSIMO PUNTEGGIO P 
OSSIBTLE E' 253. 

5210 DATA"{ 11 SPAZI}BUONA FORTU 
NA! 

5215 DATA" 

5220 DATA"{ 4 SPAZI}PREMI{SPAZI} 
SPAZIO {SPAZI}PER{SP AZI} COM 
INCIARE. 

5230 : 

5980 REM SOTTOPROGRAMMA-STAMPA I 
STRUZIONI 
5990 : 

6000 POKEV,23 :POKEV+1 ,49:POKEV+2 
1 . 1 

6010 GOSUB7000:GOSUB7000 
6020 FORW= 1 T02 3 :RE>ADU$ :PRINTUS : G 
OSUB7000:NEXTW 

6030 POKEV+21,0 :POKEV,23 :POKEV+1 
,49:POKEV+23,0:POKEV+29,0 
6040 GETAS : IFASOCHRS ( 32) THEN604 
0 

6050 RETURN 
6060 : 


40 






6980 REM SOTTOPROGRAMMA--MOVIMEN 
TO SPRITE DURANTE LE 

ISTRUZIONI 

6990 : 

7000 FORI=1T08:POKEV,PEEK(V)+1 
7010 POKEV+1,PEEK(V+l)+1:NEXT 
7020 POKEV,PEEK(V)+1:RETURN 
70 30 : 


7980 REM SOTTOPROGRAMMA--ATTESA 

7990 : 

8000 POKESD+24,0 

8010 SYSCH : IF PEEK (AR) O32THEN80 
1 0 

8020 POKESD+24,15 
8030 RETURN 
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Circo 


Joystick 


Ideato in origine per il VIC privo di espansione 
di memoria. “Circo" è un gioco di abilità che 
vi appassionerà. Ne viene presentata anche 
una versione per il Commodore C-64. Sono 
necessari i joystick. 

Il vostro compito consiste nel rimuovere i 
grappoli di palloncini intrappolati sotto il ten¬ 
done catapultando in aria i clown, in modo 
che possano farli scoppiare. Ogni fila di pal¬ 
loncini ha un differente punteggio. I blu della 
fila inferiore valgono 50 punti ciascuno, i ver¬ 
di della fila centrale 75 e i rossi della fila su¬ 
periore 100. 

Ogni volta che riuscite a far saltare un clown 


1 GOTO800 

2 POKE53280,6:POKE53281,1 

5 S = 1304 :EX=1:L=3:SC=0:SO = 54272 
10 POKESO+24,15 :POKESO+5 » 17 :POKE 
SO + 6,16 :POKESO,100 
20 TC = 27:POKE251,112 :POKE8 31,0 : P 
ORE832,6:POKE829,20 
30 TB(1)=112 
40 TB(2)=197 

50 SS$="{ 19 DES}{ 3 SPAZI} 

{GIU'}{ 4 SIN}{ 5 SPAZI} 

{GIU' } { 3 SIN} " 

60 SC$="{ 19 DES}{GRN}###{GIU'} 

{ 4 SIN}{BLU}#####{GIU‘} 

{ 3 SIN } $ " 

70 POKE53272,(PEEK(53272)AND240) 
+ 12 

80 T(1)=38 :T(2)=40 

90 PRINT"{CLR}{ 2 GIU'}{RED}#### 
############################# 
#######"; 

91 PRINT"{GRN}################## 
#{ 3 SPAZI}################## 

92 PRINT"{BLU}################## 
{ 5 SPAZI}#################"; 

100 FORI=16TOlSTEP-1 
110 PRINT"{HOME}{ 3 GIU'}";:FORT 
=1T0I:PRINT"{GIU 1 }";:NEXT:PR 
INTSC$ 

120 F0RY=1T075:NEXT 
130 PRINT"{HOME}{ 3 GIU'}";:FORT 
=1T0I:PRINT"{GIU 1 }";:NEXT:PR 
INTSSS 


sul vostro bilico, ottenete 5 punti. 

"Circo" è un programma in due parti (per la 
versione VIC di base). Il primo programma 
contiene i dati necessari per la costruzione 
dei caratteri speciali e le istruzioni di gioco. 
Dopo averlo mandato in esecuzione (RUN), 
si cancellerà automaticamente, quindi assi¬ 
curatevi dì averne registrato una copia prima 
di mandarlo in RUN. Il secondo programma 
contiene il gioco. Dovete caricare il secondo 
programma (LOAD) e mandarlo in esecuzio¬ 
ne (RUN) dopo il primo-, poiché il primo pro¬ 
gramma costituisce i caratteri grafici speciali 
utilizzati dal secondo. 


140 NEXT 

150 PRINT"{CLR}{ 2 GIU'}{RED}### 
############################ 
#########"; 

151 PRINT"{GRN}################# 

#######################"; 

152 PRINT"{BLU}################# 

#######################"; 

160 PRINT" {HOME} {GIU'}++++++++++ 

++" 

170 PRINT"{HOME}{ 23 GIU'},/»,»» 

9999999999999999999999999999 
II • 

9 9 9 9 9 9 9 

180 TT=1 :D = -1:AO = 40:MP=1244 :MC = 5 
5516 :TP = 19:BA=121:Z = 0:POKE83 
4, TP 

185 W=INT(RND(1)*39)+1104 
190 POKE251,TB(TT):SYS49152 

200 PRINT" {HOME}{ 16 GIU'}- 

-{ 26 SPAZI}-" 

210 PRINT"{HOME}{ 6 SPAZI}PUNTI= 
";SC:PRINT"{HOME}{ 25 DES}CL 
OWN=";L 

220 POKEMP,36:POKEMC,0 
230 GOSUB750:IFFBTHEN240 
235 GOTO230 
240 U=INT(RND(1)*10) 

244 IFZ=0ANDU>8THENZ=7:G0T0248 
246 IFZ=7ANDU>7THENZ=0:G0T0248 
248 IFPEEK(W)=35THENPOKEW+SO,Z 
290 POKE251,TB(TT) :SYS49434 :TP=P 
EEK(834) 

310 IFD = -1THEN3 30 
320 IFD=1THEN410 
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325 GOTO310 

330 OP=MP:MP=MP+AO:MC=MP+SO:PM=P 
EEK(MP) 

335 IF((OP-1023)/40=INT((OP-1023 
)/40) )ANDAO = 41THENMP=MP-40 : P 
M=PEEK(MP):MC=MP+SO 
340 IFPM=32THEN406 
350 IFPM=35THENGOSUB560:GOTO406 
370 IFPM=T(TT)THEN460 
380 IFPM=4 30RPM=4 5THENMP=OP:D = 1: 

AO=INT(RND(1)* 3)+ 3 9 : GOTO 240 
400 L=L-1:IFL<=0THEN630 
404 GOTO150 

406 POKEOP,32 :POKEMP,36 :POKEMC,0 
:GOTO240 

410 OP=MP:MP=MP-AO:MC=MP+SO:PM=P 
EEK(MP) 

415 IF((OP-1024)/40=INT((OP-1024 
)/4 0) )ANDAO = 41THENMP=MP+40:P 
M=PEEK(MP):MC=MP+SO 
420 IFPM=32THEN450 
430 IFPM=35THEND=-1:GOSUB560:GOT 
0450 

435 IFPM=4 5THENPOKEOP,32 :MP=MP-A 
O:MC=MP+SO 

440 IFPM=43THENMP=OP:D=-1:AO=INT 
(RND(1)* 3 ) + 3 9 : GOTO 2 4 0 
450 POKEOP,32:POKEMP,36:POKEMC,0 
:GOTO240 

460 SC=SC+5:POKEOP,32 
4 80 POKESO+1,10 :POKESO+4,33 
490 POKE251,TC:SYS49152 
500 POKESO+4,32:IFTT=1THENMP=178 
7+TP:MC=MP+SO 

510 IFTT=2THENMP=1785+TP:MC=MP+S 
O 

520 TT=TT+1:IFTT>2THENTT=1 
530 D=1 

540 POKE251,TB(TT):SYS49152 
550 AO=INT(RND(1)*3)+39 
555 PRINT"{HOME}{ 6 SPAZI}PUNT1= 
";SC:PRINT"{HOME}{ 25 DES}CL 
OWN=";L:GOTO240 

560 POKESO+1,10 :POKESO+4,129 :FOR 
I=lTO10:NEXT:POKESO+4,128 
563 IFMP=WANDC = 0THENL = L-1: GOTO15 
0 

566 IFMP=WANDC=7THENSC=SC+250:GO 
TO600 

570 IFMP>1103ANDMP<1144THENSC=SC 
+ 100 

580 IFMP>114 3ANDMP<1184THENSC = SC 
+ 75 

590 IFMP>1183ANDMP<1224THENSC=SC 
+ 50 

600 IFSOEX*2000THENL=L+1 :EX=EX+ 

1 

605 BA=BA-1:IFBA=1THEN150 
610 AO=INT(RND(1)*3)+39 


620 PRINT"{HOME}{ 6 SPAZI}PUNTI- 
";SC:PRINT"{HOME}{ 25 DES}CL 
OWN=";L:RETURN 
630 G$ = " PARTITA 

{ 3 SPAZI }C ONCLUSA" 
640 FORI=2T034STEP2 
650 PRINT"{HOME}{ 9 GIU'}";TAB(I 
+2);MID$(G$,I,1) 

660 FORT=1TO100:NEXT:NEXT 
670 FORI=1T0250:NEXT 
680 PRINT"{ 2 SPAZI}PREMI IL PUL 
SANTE PER GIOCARE ANCORA" 

690 PRINT"{ 3 SPAZI}SPINGI IL JO 
YSTICK VERSO IL BASSO" 

695 PRINT"{ 4 SPAZI}PER TERMINAR 
E. " 

700 GOSUB750 
710 IFFBTHENCLR:GOT02 
720 IFJ1THENSYS2048:END 
730 GOTO700 

750 P=PEEK(56320)AND15 
760 Jl=-(P=13) 

770 FB=- ((PEEK(56320)AND16)=0):R 
ETURN 

800 POKE53280,6:POKE532 81,1 
810 PRINT"{CLR}{ 12 GIU'} 

{ 17 SPAZI}{RED}C{CYN}I{PUR} 
R{GRN}C{BLU}0{BLK}":C=0 
820 PRINT"{GIU'}{ 12 SPAZI}ATTEN 
DERE PREGO.:GOTO1310 
830 GOSUB10000:POKE53272,(PEEK(5 
3272)AND240)+12 
840 PRINT"{CLR}{ 12 GIU'} 

{ 17 DES}{BLKjCIRCO" 

850 PRINT"{HOME}{ 10 GIU'} 

{ 15 DES}#########" 

855 PRINT"{ 3 GIU’}{ 15 DES}#### 
#####" 

860 PRINT"{HOME}{ 11 GIU’} 

{ 15 DES}#{GIU'}{SIN}#{GIU'} 
{SIN}#{ 2 SU}{ 7 DES}#{GIU'} 
{SIN}#{GIU'}{SIN}#" 

880 FORT=lT03:FORP=lT07:S=P 
890 FORI = 55711T055720 :POKEI,S 
900 S=S+1:IFS=1THENS=2 
910 IFS>7THENS=0 
920 NEXT 

930 FORI = 55760TO55840STEP40:POKE 
I,S 

940 S=S+1:IFS=1THENS=2 
950 IFS>7THENS=0 
960 NEXT 

970 FORI=55880TO55871STEP-l:POKE 
I,S 

980 S=S+1:IFS=lTHENS=2 
990 IFS > 7THENS = 0 
1000 NEXT 

1010 FORI = 558 31T055751STEP-40 : PO 
KEI, S 
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1020 S=S+1:IFS=1THENS=2 
1030 IFS>7THENS=0 
1040 NEXT 
1050 NEXTP,T 

1060 POKE53272,21:PRINT" {CLR} 

{ 12 GIU’}"; 

1070 PRINT"{ 5 SPAZI}VUOI LE IST 
RUZIONI? (S/N)" 

1080 GETA$: IFA$ = ""THEN1080 
1090 IFA$ = "S"THENl120 
1100 IFA$="N"THENl500 
1110 GOTO1080 

1120 PRINTCHR$ (14) ;"{CLRHGIU' } ‘ 
QUESTO E’ IL GIOCO DEL CIRO 
O." 

1130 PRINT"{GIU'}LO SCOPO DEL Gl 
OCO CONSISTE NEL FAR" 

1135 PRINT"SCOPPIARE TUTTI I PAL 
LONCINI." 

1140 PRINT"{GIU'}CIO’ E' POSSIBI 
LE MUOVENDO IL JOYSTICK" 
1145 PRINT"A SINISTRA E A DESTRA 
IN MODO DA PREN-" 

1150 PRINT"DERE AL VOLO IL CLOWN 

II 

1153 PRINT"{GIU'}ALL'INIZIO PREM 
ERE IL PULSANTE DI SPARO" 
1155 PRINT"PER DARE IL VIA AL Gl 
OCO. " 

1160 PRINT"{HOME}{ 20 GIU'}{RVS} 
PREMI QUALSIASI TASTO" 

1170 GETA$:IFA$=""THEN1170 
1180 PRINT"{CLR}{GIU'}TUTTI I BL 
OCCHI A SCACCHI FANNO RIMBA 
L- ZARE IL VOSTRO GIOCATORE 

II 

1190 PRINT"{GIU'}OGNI 2000 PUNTI 
VERRÀ’ CONCESSO UN UOMO IN 
PIU' 

1200 PRINT"{GIU*}ANCHE IL BLOCCO 
MOBILE PERMETTERÀ' AL 
{ 3 SPAZI{VOSTRO GIOCATORE 
DI"; 

1205 PRINT" RIMBALZARE." 

1210 PRINT" { HOME } { 22 GIU’HRVS} 
PREMI QUALSIASI TASTO{OFF}" 
1220 GETA$:IFA$=""THEN1220 
1230 PRINT"{CLR}{GIU'}DOVETE FAR 
ATTENZIONE AL PALLONCINO" 
1235 PRINT"DI DIVERSO COLORE DEL 
LA RIGA SUPERIORE." 

1240 PRINT"{GIU'{QUANDO IL PALLO 
NCINO E' NERO, SCOPPIERÀ'" 
1250 PRINT"{SU}IN FACCIA AL VOST 
RO GIOCATORE, QUANDO E"' 
1260 PRINT"{SU}GIALLO VI DARA' 2 
50 PUNTI" 

1270 PRINT"{ 2 GIU'}BUONA{SPAZI} 
FORTUNA!! !" 


1280 PRINT"{HOME}{ 22 GIU’}{RVS} 
PREMI QUALSIASI TASTO{OFF}" 
1290 GETA$:IFA$=""THEN1290 
1300 GOTOl500 

1310 POKE52,48 :POKE56,48:CLR 
1320 CS=12288:POKE56334,PEEK(563 
34)AND254:POKEl,PEEK(1)AND2 
51 

1330 FORI=CSTOCS+511:POKEl,PEEK( 
1+40960):NEXT 

1340 POKEl,PEEK(1)OR4:POKE56334, 
PEEK(56334)ORI 

1360 FORI=CS + 35*8TOCS+46* 8-1: REA 
DJ :POKEl,J:A=A+J:NEXT 
1365 IFA<>6897THENPRINT"ERRORE N 
EI DATI ALLE RIGHE 1380-148 
0": END 

1370 GOTO830 

1380 DATA28,62,47,63,63,126,96,0 

1390 DATA58,58,18,124,16,56,68,6 
8 

1400 DATAI28,64,32,16,24,28,38,3 
7 

1410 DATA128,64,32,16,8,4,2,1 
1420 DATAI,2,4,8,24,56,100,164 
1430 DATAI,2,4,8,16,32,64,128 
1440 DATA0,0,0,255,24,24,36,36 
1450 DATA0,0,0,255,0,0,0,0 
1460 DATA170,85,170,85,170,85,17 
0,85 

1470 DATA255,255,255,255,255,255 
,255,255 

1480 DATAI70,85,170,85,170,85,17 
0,85 

1500 PRINT"{CLR}PRINTCHR$(17) : 
GOTO 2 

10000 1=49152 

10010 READA:IFA=256THENGOTO10025 

10020 POKEl,A:1=1+1:C=C+A:GOTO10 
010 

10025 IFC<>21810THENPRINT"ERRORE 
NEI DATI ALLE RIGHE 10030 
-10580":END 
10028 RETURN 

10030 DATA172,66,3,174,61,3,24 
10040 DATA32,240,255,169,192,133 
,252 

10050 DATA160,0,177,251,32,210,2 
55 

10060 DATA200,192,85,208,246,96, 
32 

10070 DATA36,32,36,32,32,32,32 
10080 DATA 3 2 ,'32,32,32,32,32,32 
10090 DATA32,32,32,32,32,32,32 
10100 DATA32,32,32,32,32,32,32 
10110 DATA32,32,32,32,32,32,32 
10120 DATA32,32,32,32,32,42,41 
10130 DATA42,32,32,32,32,32,32 
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10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 


DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,38,32,32,32,32,32 
DATA 32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA37,36,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,38 
DATA 32,32,32,32,40,32,32 
DATA32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA 32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA 32,32,32,32,32,32,32 


10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 


DATA36,39,32,32,32,32,32 
DATA 32,32,32,32,32,32,32 
DATA32,32,32,32,32,32,32 
DATA 32,32,32,32,32,32,3 
DATA32,32,32,32,32,32,3 
DATA32,32,32,32,32,40,32 

DATA32,32, 169,0, 141,60,3 

DATAI73,63,3,141,64,3,2 
DATA105,1,201,41,208,2,169 
DATAO,141,63,3,174,64,3 
DATAI69,32,157 ,24,5,169,43 
DATA174,63,3,157,24,5,169 
DATAO,157,24,217,173,0,220 

DATA170,41,8,208,18,238,66 

DATA3,173,66,3,201,36,208 

DATA2,169,35,141,66,3,76 
DATAI16,193,138,41,4,208,1 

DATA206,66,3,173,66,3,201 
DATA255,208,2,169,0,141,66 

DATA3,32,0,192,238,60,3 
DATA173,60,3,201,2,208,197 

DATA96,256 
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Gotchat 


joystick 


"Gotcha!" non vi darà un attimo di respiro 
mentre andrete a caccia di dollari, cercando 
di evitare il temutissimo Esattore. 

Ideato in origine per il VIC in versione base 
(privo di espansione di memoria), ne è stata 


m seguito ottenuta una versione per il C64. Si 
richiede l'uso del joystick. 

Nella versione per il 64, inserite la presa del 
joystick nella porta di controllo n. 2. 


20 POKE56,48:POKE52,48 

'30 F0RI = 5427 2T054296 : POKEI, 0:NEX 
T:POKE54296,15 :POKE54277,17 : P 
OKE54278,136 

40 GOTO1180 

50 K=INT(.5+(ME-1183)/80) :J = 0: ET 
-K*80+1183:CH=-1:E1=66 

51 IFRND(1)<.5THENET=ET-39:CH=1• 
El = 67 

52 IFPEEK(ME)=36THENGOSUB1050 

53 IFPEEK(ET)=36THENIT=IT+1 

54 IFME<1064THENME=ME+40 

55 IFME> 2023THENME=ME-4 0 

56 POKEOM,32 :POKEME,Ml:POKEME+54 
272,7 

57 IFPEEK(ET)=M1THEN1100 

58 POKEOT,32 :POKEET+ 54272,2 :POKE 
ET,E1 

59 IFIT=>(30+RD*20)THENPRINT" 
(CLR)":RD=RD+1:MT=0:OM=0:OT=0 
: GOTO1510 

60 P=PEEK (DD):Jl = 15-(PANDI5) 

63 IFJl=lTHENDY=-40 : GOTO74 

64 IFJl=2THENDY=40: GOTO74 

65 IFJ1 = 4THENDX=-1:Ml = 0: GOTO74 

66 IFJ1 = 5THENDY=-41:M1 = 0: GOTO74 

67 IFJ1 = 6THENDY= 39 :Ml = 0: GOTO74 

68 IFJl=8THENDX=l:M1=65:G0T074 

69 IFJ1 = 9THENDY=-39 :Ml = 65: GOTO74 

70 IFJ1=10THENDY=41:Ml=65 

74 OM=ME:ME=ME+DX+DY:DY=0:DX=0 

80 IFME<1064THENME=ME+40 

81 IFME>2023THENME=ME-40 

82 IFET>2023THENET=ET-40 

85 IFPEEK (ME) 032ANDPEEK (ME) 036 
THENME=OM 

180 OT=ET:ET=ET+CH:J=J+1:IFJ>=40 
THEN50 

190 GOTO52 

200 PRINT"{CLR}{WHT}PUNTI{OFF}"S 
C:IFRD=0THEN1000 

201 IFRD>18THENPRINT"{CLR}{RED} 

{ 12 GIU 1 }{ 14 PES}CE L’HAI 
FATTA!! ! !":GOTO201 

202 UR$="E F":UL$="H G" 

210 PRINTCHR5(147) 


300 PRINT:PRINT 

350 F0RT=lT012 

360 PRINT"{CYN}{ 40 D}" 

370 NEXT 

372 PRINT"{HOME}{GIU'}" 

374 OV$="{ 17 DES}":AP$="" 

375 FORT=ITO5 

380 PRINTOV$UR$AP$UL$ 

385 AP$=AP$+"{ 4 DES}":OV$=OV$+" 
{ 2 SIN}" 

390 NEXT 

395 AP$ =AP$+"{ 4 SIN}":OVS=OV$+" 
{ 2 DES}" 

410 FORT=ITO5 

420 PRINTOV$UL$AP$UR$ 

430 AP$=AP$+"{ 4 SIN}":OV$=OV$+" 
{ 2 DES}" 

440 NEXT 

460 FORT=lTO30+(RD*20) 

470 SP=INT(RND(1)*879)+1064 
480 IFPEEK(SP)=32THENPOKESP,36 :P 
OKESP+54272,5:GOTO500 
490 GOTO470 
500 NEXT 


505 DD=56320:ME=1562:IT=0:V=5427 
6:HF=54273:LF=HF-1 

555 POKEV,17:FORT=lTO50:POKEHF,R 
ND(0)*38+34 

600 FORTT=ITO5 :POKELF,RND(0)*20 + 
40:NEXTTT:NEXTT:POKEV,16 

609 IFRD>0THENME=ME-80 

610 GOTO50 

1000 PRINT"{RED}{ 3 GIU'} 

{ 19 DES}ra" 

1002 PRINT"{GIU'}{ 17 DES}F 
{ 4 D}H" 

1004 PRINT"TgiU’}{ 15 DES}F 
{ 8 D}H" 

1006 PRINT"TgiU'}{ 13 DES}F 
{ 12 D}H" 

1008 PRINT"{GIU'}{ 11 DES}F 
{ 16 D}H" 

1010 PRINT"{GIU'}{ 11 DES}G 

{ 16 D}E" - 

1011 PRINT"{GIU'}{ 13 DES}G 

{ 12 D} E" “ 
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1012 PR1NT"{GIU'}{ 15 DES} G 
{ 8 D}E" 

1014 PRINT"lGIU'}{ 17 DES }G 
{ 4 D}E" 

1016 PRINT"lGIU'}{ 19 DES}GE" 

1018 GOTO460 

1050 POKEV, 17 :POKEHF,51:FORT=ITO 
5 :POKELF,2*T:NEXTT:IT=IT+1: 
SC=SC+10*(1+RD) 

1060 POKEV,16:IFRD=OTHENPRINT" 
{HOME} {WHT}PUNTI"SC-.RETURN 

1065 PRINT"{GIU’}{GRN}PUNTI"SC" 

{ 2 SU}":RETURN 

1100 PRINT"{CLR}{WHT}"TAB(17)"GO 
TCHA ! ! " 

1101 POKEV,17 :FORT=40TO7 5 :POKEHF 
,T:POKELF,2*T:NEXT:FORT=ITO 
50 :NEXT:POKEV,16 

1102 F0RT=34T012STEP-1:POKEHF,T: 
POKELF,2*T:NEXT:POKEV,16 

1130 FL=1:RD=0:OM=0:OT=0:GOTOl50 
1 

1180 POKE53280,15:POKE53281,15:P 
RINT"{CLR}{ 10 GIU'}"TAB(10 
)"{RED}ASPETTA UN MOMENTO" 

1200 PRINTCHR$(142) :POKE52,48 : PO 
KE56,48:CLR 

1210 POKE56334,PEEK(56334)AND254 
:POKE1,PEEK(1)AND2 51 

1220 FORI=0TO511:POKE12288+1,PEE 
K(53248+1):NEXTI:POKEl,PEEK 
(1)OR4 

1225 POKE56334,PEEK(56334)ORI: PO 
KE53272,(PEEK(53272)AND240) 
OR 12 

1230 READX:IFX<0THEN1300 

1240 FORI=XTOX+7:READJ:POKEl,J:N 
EXTI:GOTO1230 

1250 DATAI2288,48,18,156,120,24, 
40,36,34,12808,24,81,58,28, 
24,20,36,68 

1260 DATAI2816,60,230,126,30,30, 
30,254,124,12824,60,103,126 
,120,120,120,127,62 


1270 

1280 


1290 


1300 

1380 


1400 

1401 


1402 


1403 

1501 

1505 

1510 


1512 

1515 

1516 

1518 

1520 

1550 


1551 


1560 


DATA12832,255,255,255,255,2 

55.255.255.255 

DATA12840,255,254,252,2 , 

40,224,192,128,12848,1,3,7, 

15.31.63.127.255 

DATAI2856,255,127,63,31,15, 

7,3,1,12864,128,192,224,240 

,248,252,254,255,-1 
POKE53280,0 :POKE53281,0 
PRINT"{CLR}{WHT}{ 3 GIU'} 

{ 13 DES}** GOTCHA ** 

{ 4 GIU’}" 

PRINT"{YEL}USANDO IL JOYSTI 
CK N.2, RACCOGLI QUANTI" 
PRINT"PIU' SOLDI PUOI SENZA 
ESSERE PRESO DA{ 3 SPAZI} 

{RED} C " 

PRINT"{YEL}{GIU'}TU SEI 
{CYN}A.{YEL} IL NUMERO ED I 
L VALORE DI [<4>]$" 

PRINT"{YEL}SI INCREMENTANO 
AD OGNI ROUND.":GOT01510 
PRINT"{ 2 GIU'}PUNTI"SC:PRI 
NT" {GIU' } RECORD "HS : IFSOHST 
HENHS=SC:GOSUB1550 
IFRD=0THENSC=0 
PRINT"[<8>]{ 4 GIU'}{DES}PR 
EMI IL <PULSANTE> PER GIOCA 


RE" 

IFFL=1THENPRINT"[< 8 >]Q PER 
ABBANDONARE" 

P=PEEK(56320):FR=PAND16 
IFPEEK(197)=62THENP0KE198,0 
: SYS204 8 
IFFR=16THENl515 
FL=0:GOTO200 

FORT=lTO1000:NEXT:FORCT=ITO 
3 :PRINT"{RED}{ 10 DES} 

{ 2 GIU'H 2 SPAZI}UN NUOVO 
RECORD!!":NEXT 
POKEV,17 :FORTT= 4 0TO200:POKE 
HF,TT/2:FORI = lTO10: NEXTI: PO 
KELF,TT:NEXTTT 
POKEV,16:RETURN 
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Tastiera-64 


Questo potrebbe essere l'ultimo programma 
da voi battuto nella maniera tradizionale! 
Tastiera-64 e VIC-Tastiera vi permettono di 
ottenere un'intera istruzione BASIC premen¬ 
do un solo tasto contemporaneamente allo 
SHIFT. VIC-Tastiera funziona su versioni pri¬ 
ve di espansione o con espansione di memo¬ 
ria da 3 K. Qualsiasi altra memoria aggiunti¬ 
va deve essere rimossa o disabilitata per uti¬ 
lizzare questo programma ausiliario. 
Tastiera-64 e VIC-Tastiera rendono la copia¬ 
tura dei programmi particolarmente lungh 
più veloci e più facile. Ad esempio, premendo 
SHIFT-K si ottiene GOSUB, SHIFT-N dà 
NEXT mentre SHIFT-T genera un TAB corre¬ 
dato addirittura dalla parentesi aperta! 

Per usare Tastiera-64, digitare il program¬ 
ma, registrarlo e mandarlo in esecuzione. Se 
avete commesso errori nel copiare le frasi 
DATA, sarà il programma stesso ad avvertir¬ 
vi. Per mettere in funzione il programma au¬ 
siliario battere SYS52557. Se desiderate di¬ 
sattivarlo, battete una seconda volta 
SYS52557. Potete anche disattivarlo premen¬ 
do contemporaneamente RUN/STOP e /GE¬ 
STORE. Tastiera-64 rimarrà in memoria fin¬ 
ché non spegnerete il calcolatore. 

Se battete una lettera maiuscola all'interno 
degli apici, il programma darà un normale 


carattere grafico od una lettera maiuscola 
invece di una parola chiave BASIC. 
Parole-chiave BASIC 


A 

ASC 

8 

STEP 

C 

CHR$ 

D 

DIM 

E 

END 

F 

FOR 

G 

GET 

H 

STOP 

1 

INPUT 

J 

GOTO 

N 

NEXT 

O 

OPEN 

P 

POKE 

Q 

PEEK 

R 

RIGHTS 

S 

STR$ 

T 

TAB( 

U 

USR 

V 

VAL 

W 

DATA 

K 

GOSUB 

L 

LEFT$ 

M 

MID$ 

X 

READ 

Y 

RESTORE 

Z 

SYS 


10 PRINT"{CLR} TASTIERA-64" 

20 FORI=52557TOS2739 
30 READA :X=X+A:POKEI, A 
40 NEXTI 

50 IFXO24016THENPRINT"C ' E 1 UN E 
RRORE NELLE TUE FRASI DATA":S 


TOP 

60 PRINT"PER ATTIVARE IL PROGRAM 


80 

90 

100 

110 

120 

130 

140 

150 

160 

170 


MA SYS 52 5 57": END 
DATA120,173,20,3,72 
DATA17 3,21,3,72,173 
DATA116,205,208,2,169 
DATAI18,141,20,3,173 
DATAI17,205,208,2,169 
DATA205,141,21,3,104 
DATA141,117,205,104,14 
DATA116,205,88,96,0 
DATA0,72,138,72,152 
DATA72,165,215,72,165 


1 


180 DATA212,240,4,104,76 
190 DATA221,205,104,201,193 
200 DATA144,82,201,219,176 
210 DATA78,56,233,193,170 
220 DATA189,229,205,162,0 
230 DATAI34,198,170,160,158 
240 DATAI32,34,160,160,132 
250 DATA35,160,0,10,240 
260 DATAI6,202,16,12,230 
270 DATA34,208,2,230,35 
280 DATA177,34,16,246,48 
290 DATA241,200,177,34,48 
300 DATA17,8,142,255,205 
310 DATA230,198,166,198,157 
320 DATAI19,2,174,255,205 
330 DATA40,208,234,230,198 
340 DATA166,198,41,127,157 
350 DATA119,2,169,20,141 
360 DATA119,2,230,198,104 
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370 DATA168,104,170,104,76 
380 DATA49,234,198,169,199 
390 DATA134,128,129,161,144 
400 DATA133, 137,141,200,202 


410 DATA130,159,151,194,201 
420 DATA196,163,183,197,131 
430 DATA135,140,158,127,0 
440 DATAO,0,255,255,255 
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Mille mialia 


Joystick (opzionale) 


Mettete alla prova la vostra abilità di guida¬ 
tori percorrendo una strada tortuosa ed irta 
di ostacoli. Man mano che procederete, la 
strada diverrà sempre piu stretta, con mag 
gior rischio di incidenti: più a lungo resistere¬ 
te. più alto sarà il vostro punteggio. Scegliete 
uno dei quattro livelli di difficoltà: il primo è 
per i principianti, nel secondo le curve sono 


più strette, nel terzo curve larghe ma ostaco¬ 
li sparsi qua e là, nel quarto curve strette ed 
ostacoli. Se urtate il bordo della pista od un 
ostacolo, il gioco termina mostrandovi la lar¬ 
ghezza della strada ed il punteggio. Usate il 
tasto "C" per andare a sinistra ed "M" per 
andare a destre. 


0 PRINTCHR$(142) :POKE52,48 :POKE5 
6,48:CLR:POKE53280,1:POKE53281 
,1 

1 PRINT"{CLR}{RED}{ 10 GIU'} 

{ li des)Attendi un attimo":go 

SUB260 

2 POKE53280,15:POKE53281,15 

3 PRINT"{CLR}{ 3 GIU'}{ 5 DES} 
{RED}IMPOSTA IL LIVELLO:[<7>]" 
:PRINT"{ 3 GIU'}"TAB(12)"{BLK} 
1[<4>] PER {WHT}NOVELLINO[< 7> 1 

It 

4 PRINT"{ 3 GIU'}"TAB(12)"{BLK}2 
[<4>] PER {WHT}DILETTANTE[< 7> ] 

II 

5 PRINT"{ 3 GIU'}"TAB(12)"{BLK}3 
[<4>] PER {WHT}PROFESSIONISTA 

[ < 7 > ] " 

6 PRINT"{ 3 GIU'}"TAB(12)"{BLK}4 
[<4>] PER {WHT}ESPERTO[<7>]":P 
RINT"{ 3 GIU'}"TAB(12)"{BLK}5 
[<4>] -FINE-[< 7>]" 

7 GETB$:IFB$=""THEN7 

8 J=VAL(B$):IFJ<10RJ>5THEN7 

9 L=54272 :IFJ = 5THENPOKE53 272,21 : 
SYS2048 

10 IFA$="N"THEN14 

11 PRINT"{CLR}{WHT}{ 6 GIU'} USA 

I TASTI: C (SINISTRA) E M (D 
ESTRA)" 

12 PRINT"{GIU'} PUOI ANCHE USARE 

IL JOYSTICK (PORTA 2)" 

13 FORS=lTO3000:NEXTS 

14 PRINTCHR$(147) 

15 POKE650,255:N=1516 

16 POKE53280,11:POKE53281,11 

17 1=.1:IFJ = 20RJ = 4THENI = .2 :N=151 
8 

18 AM$="{ 13 D}" 


20 

22 

23 

25 

26 

27 

28 


29 


30 

32 

40 


42 


43 

44 

45 

46 

47 
49 
5 0 
51 


70 

80 

110 

120 

130 

140 

150 


PU = 0 


FORQ=lT04 
FORC = 13TOOSTEP-1 
FORA=1T07.2STEPI 
Y=COS(A) 

F=F+1:R=RND(0) 

IFPEEK(N+40)=6 50RPEEK(N-1)=65 
ORPEEK(N+l)=650RPEEK(N-40)=65 
THEN110 

PRINTTAB(10*Y+13) ; " [< 8 >] A" ;" 
{BLK } " ; LEFT$ (AM$,C) ; " [ < 8 >" ] A 
{WHT}":IFR>.5THEN4 0 
IFJ = ÌORJ = 2THEN4 0 




•*•*■*■ " ‘"“«-in i ua-KNO ( 1) ) 

KE1944+X+L,3 :POKE1944+X,66 
IFF>=25THENPOKEN+L,1:POKEN,64 
: FORT=1TO50:NEXTT:POKEN+L,0 :P 
OKEN,68 


IFPEEK(N+40)=650RPEEK(N-1) =65 
ORPEEK(N+l)=650RPEEK(N-40)=65 
THEN110 


IFF> = 25THENP=PEEK(56320) :D = 15 
-(PANDI5) 

IFD = 4THENN=N-1 : GOTO51 
IFD = 8THENN=N+1: GOTO51 
IFD=6THENN=N+39:GOT051 
IFD=10THENN=N+41: GOTO51 
GETB$ 

N=N+(B$ = "C")-(B$ = "M") 

IFPEEK(N)=660RPEEK(N+40)=660R 
PEEK(N-l)=660RPEEK(N+l) =66THE 
N110 


PU=PU+1 

NEXTA:NEXTC:NEXTQ 
POKEN,67 :POKEN+L,2 
POKEN-1,67:POKEN-1+L,7 
POKEN+1,67 :POKEN+l+L,7 
POKEN+40,67 :POKEN+40+L,15 
POKEN-40,67:POKEN-40+L,15 
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160 V= 54296:W=54276:A=54277:H=54 
273 :L= 54272 

170 FORX= 4 5TOOSTEP-1:POKEV,X :POK 
EW,129 :POKEA,15 :POKEH,4 0 :POK 
EL,200:NEXT 

180 POKEW,0 :POKEA,0:F = 0:D=0 
190 POKE198,0:PRINT"{GIU'}LA STR 
ADA E' LARGA ";C; "METRI" 

200 PRINT"IL TUO PUNTEGGIO E’ "; 

INT(10000/C+5*PU) 

210 PRINT"GIOCHI ANCORA (S/N)?": 
PRINT"COL JOYSTICK, PULSANTE 
PER RIGIOCARE" 

215 P=PEEK(56320):FR=PAND16:IFFR 
=0THENl4 

220 GETAS:IFA$=""OR (A$<>"S"ANDA$ 
<>"N"ANDFR<>0)THEN215 
230 IFA$="S"THEN14 
240 IFA$="N"THEN2 
260 POKE56 3 34,PEEK(563 34)AND2 54 


270 POKEl,PEEK(1)AND2 51 

280 FORI=0TO511:POKEI+12288, PEEK 

(1+53248):NEXT 
290 POKEl,PEEK(l)OR4 
300 POKE56334,PEEK(56334)ORI 

310 POKE53272,(PEEK(53272)AND240 

) OR12 

320 FORC=1280 0TO12839 :READZ:POKE 


C,Z:NEXT 

330 DATA153,255,189,60,60,189,25 
5,153 

340 DATA255,255,255,60,60,255,25 


5,255 

350 DATA24,60,128,255,255,255,25 
5,255 

360 DATA154,82,0,27,216,0,74,137 


365 DATA255,255,255,255,255,255, 
255,255 
370 RETURN 
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Cablili 


Il gioco è semplicissimo: occorre catturare 
tutte le creature dallo sguardo torvo dissemi¬ 
nate sul video, utilizzando il propno folletto. 
Bisogna però stare attenti a non urtare i nu¬ 
merosi ostacoli presenti. 

80 POKE 53280,2 :POKE 53281,1 
90 PRINT" {CLR} { 7 GIU'}ATTENDERE 
,PREGO...DEFINISCO I CARATTER 
i"; 

100 POKE 52,48:POKE 56,48:CLR:PO 
KE56334,PEEK(563 34) AND2 54 
105 POKE1,PEEK(1)AND251 

108 FORN = 0TO2047:POKEN+12288,PEE 
K(N+53248):NEXTN 

109 FOR N = 0 TO 7:POKEN+12320,PEE 
K(N+54064):NEXT N 

110 IFS>HSTHENHS«S 

112 RESTORE:B»4:Z»1964:Zl»Z+5427 
2:W»0:S«J:G«0 

115 VS-54296:AD«54277:SR«54278:W 
F»54276:LB«54272:HB«54273 
120 FOR X«0TO31 : READ A:POKEX+122 
88,A:NEXT 

123 POKE 1,PEEK(1)OR4 :POKE563 34, 
PEEK(56334)ORI 

125 POKE 53272,(PEEK(53272)AND24 
0) +12 

130 PRINT"(CLR){GRN}{ 14 DES} 

{RVS} G O B L I N" 

140 PRINT"{HOME}{RED}{ 2 GIU’} 

{RVS)"SPC(17)"HS«"HS 
145 PRINT"{HOME}{BLK}{ 22 GIU'} 
{RVS}0«SINISTRA M ;SPC(22) ;"P= 
DESTRA" 

150 FOR I«1 TO 118 

160 X*INT(RND(1)*680)+1144 

170 IFPEEK(X)«BTHEN 160 

180 POKEX,B:POKEX+ 54 272,0 :NEXTI 

190 FORI » ITO36 

195 G1«0 

200 X=INT(RND(1)*680)+1144 
210 IF PEEK(X)«BORPEEK(X)=lORPEE 
K(X)= 3THEN 200 

220 IFPEEK(X+39)«BANDPEEK (X + 40)» 
BANDPEEK(X + 41)«BTHENPOKEX,3 : 
POKEX+54272,0:G1=1 
225 IF Gl=l THEN G=G+l:GOTO 240 
230 POKEX,1:POKEX+54272,0 
240 NEXT I 

250 POKEZ,32:Z=Z-40:Z1=Z1-40:IF 
Z<1144 THEN Z=Z+760:Zl=Zl+76 
0 


Il folletto può essere guidato solo orizzontal¬ 
mente. con i tasti O che la sposta a sinistra e 
P che lo muove a destra. 

Attenti alla velocitò del Goblm! 


260 GET A$:IPA$="0"THENZ=Z-1:Zl= 
Zl-1 

270 IFA$="P"THENZ=Z+l:Zl=Zl+l 
280 IFPEEK(Z)=B THEN 410 
290 IFPEEK(Z)=1 THEN GOSUB 330 
300 POKEZ,0:POKEZ1,0 :FORT=1T0220 
:NEXT 

310 IFW=36-G THEN J=S:GOSUB350:G 
OTOllO 
320 GOTO 250 

330 W=W+1:S*S+25:PRINT"{HOME} 

{BLU}{ 2 GIU'}"S:POKE VS,15: 
POKE AD,30:POKE SR,200:POKE 
WF, 17 

340 POKEHB,71:POKELB,12:FORT=lTO 
90 :NEXTT:POKEVS,0 :POKEHB,0 : P 
OKELB.O:RETURN 

350 PRINT"(HOME){RED}{ 18 GIU'} 

{ 8 DES}{RVS}»****» PERFETTO ! 

******** 

355 FORI=lTO10:GETC$:NEXTI 

360 POKE VS,15:POKE AD,30:POKE S 

R, 200 :POKE WF,17:FOR I«1 TO 
17 

370 H«INT(RND(0)*10)+21:L«INT(RN 
D(0)*45)+210:POKE HB,H:POKE 
LB,L 

380 FOR T«1 TO 80-.NEXT T:NEXTI:P 
OKE VS,0:POKE HB,0:POKE LB,0 

400 RETURN 

410 POKEZ,2:POKEVS,15:POKEAD,30: 
POKESR,200:POKEWF,129:POKE H 
B,2 :POKE LB,125 

415 FOR I»1 TO 400 :NEXT I :POKE V 

S, 15:POKE HB,0 :POKE LB,0 
420 F0RX=1144T01823:IF PEEK(X)<> 

1THEN NEXTX 

430 IFPEEK(X)«1THEN POKEX,3:NEXT 
X 

440 J-0 

445 FORI » ITO10:GET C$:NEXTI 
450 PRINT"{HOME}{BLU}{ 20 GIU'} 

{RVS}GIOCHI ANCORA? (S/N)”:P 
OKE 646,14 

465 GET C$:IF C$ = "" THEN 465 
470 IFC$="S"THEN 110 
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490 POKE53272,21 :POKE53280, 14 : PO 
KE532 81,6 :POKE 52,50 :POKE56, 
50 :PRINT"{CLRjCIAO!" 

500 DATA126,219,219,255,165,90,9 
0,165,60,66,165,129,153,165, 
66,60 


510 DATA170,85,170, 
5,189,60,66,165 
66,60 

520 DATAO,0,0,0,0,0 


85,126,219,25 

,129,165,153, 

, 0,0 
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Barrier 

battle 


J tantckt 


Lo scopo di questo gioco è quello di creare del 
le bamere. utilizzando il joystick, e costringe 
re cosi il proprio avversano ad uscire dai con 
totm ed urtare i limiti dello schermo o le bar 
nere create. 

Premendo il pulsante di sparo, si possono la 
sciare dei buchi nella propria barriera: questo 
per un massimo di cinque volte. Ciò può esse 
re molto utile durante la partita perché verso 
la conclusione le vie di fuga diventano molto 
scarse Nella parte inferiore detto schermo so¬ 


10 FORL-54 272T054 296 :POKEL,0 : NEX 
TL:POKE54 296,1 5: POKB54 277, 17 
20 POKE54278,241 

93 REM "* INIZIALIZZAZIONE 

94 POKE53280,1:POKE53281,1:LV*5: 
GOSUBl000 

98 DIM A$(18) ,BS(18) ,M(18) 

100 X-20:Y-11:SR-1024+X+40*Y:SD- 
171:SS-102 

101 WL»160 :BR»214:BK-32:Vl-5:V2- 
5 

105 LN"40:VE«LN:DR»-LN;0 54272 

115 LC-SR:PS-LC 

130 PRINT" {CLR) { 24 GIU’)(DES) 

(< 4>) {RVS} (OFF) BUCHI G.l " 
VI ; 

140 PRINT"{ 5 DES)(BLU)(RVS) 

[<X>) (OFF) BUCHI G.2 
{ 2 SPAZI)";V2 

145 GOSUB5000 

199 REM *** JOYSTICKS *** 

200 K1-PEEK(56321):K2-PEEK(56320 

201 J1 »1 5- (Kl ANDl 5) : J2-1 5-(K2AND 
1 5) 

203 Fi-KlANDl 6:F2«K2ANDl6 

221 IFJ1=1THENVE*-LN:GOT02 30 

223 IFJl-2THENVE-LN:GOT0230 

225 IFJl=8THENVE-1 :GOT02 30 

227 IFJl-4THENVE--1 

230 IFJ2 = 1 THENDR--LN: GOTO300 

233 1FJ 2-2THENDR-LN:GOTO300 

236 IFJ2-8THENDR-1:GOTO300 

2 39 1FJ 2 * 4 THENDR*- 1 

299 REM **» MOSSA GIOCATORI *** 


no visualizzati, per entrambi i giocatori, i bu 
chi ancora rimasti da utilizzare. 

Il giocatore perde quando va ad urtare una 
delle linee di contorno o una delle barriere 
create durante il gioco 
La fine della partita è segnalata dall appari 
zione del giocatore vincente che salta per la 
gioia al centro dello schermo. Viene quindi n- 
velata l'identità del vincitore e viene offerta la 
possibilità di ricominciare il gioco 


300 FORSP • 1TOLV:NEXTSP 

301 LC-LC+VE:GOSUB7600 

302 IFPEEK(LC)<>BKTHENP-1:GOTO60 
00 

304 IFFl-160RV1-0THEN307 

306 POKELC,BK:Vl»Vl-1:POKEl958,V 

1 -f48:GOTO308 

307 POKELC+C» 11 :POKELC,WL 

308 PS-PS+DR 

309 IFPEEK (PS) 032THENP-2 :GOTO60 
00 

310 IFF2-16ORV2-0THEN314 

311 POKEPS,BK:V2»V2-lsPOKEl979,V 

2 + 48 

313 G0TO315 

314 POKEPS+C,6 :POKEPS,SS 

315 GOTO200 

1 000 GOSUB7 502 :PRINT”{ 5 GIU’) 

( 7 DES}( 3 SPAZI)SPARO PER 
CONTINUARE ” 

1010 Fi-PEEK(56321 )ANDl6:F2-PEEK 
(56320) ANDl 6:IFF1-16 AND P2 
-16 THEN1010 
1018 GOSUB7510:RETURN 

4999 REM *•* CONTORNO •** 

5000 FORI-1 024TOl 063 :POKEI+C,9 :P 
OKEI,SD:NEX T 

5002 FORI-1 904TO1 943 :POKEI+C,9 :P 

Agr T QD•NFXT 

5004 FORI = 1 024TOl 904STEP40:POKEI 
+C # 9 :POKEI,BR:NEXT 

5005 FORI-1063TO1943STEP40:POKEI 
+C,9 :POKEI,BR:NEXT 

5008 RETURN 

5999 REM *** FINE GIOCO *** 
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6000 GOSUB6030 :PRINT"{CLR} 

{ 10 GIU'Un DES}[< 2 >]GIO 
CATORE{DES}"; 

6002 IFP=1THENPOKE1 4 4 5,SS :POKEl 4 
45+54272,6 

6004 IFP=2THENPOKEl445,WL:POKEl4 
45+54272,11 

6006 PRINT"{DES} VINCE":FORI = l TO 
700:NEXTI 

6008 GOSUB7000:PRINT"{ 8 GIU'} 

{ 4 DES}SPARARE PER CONTINU 
ARE:{RVS}{BLK}Q-FINE 
{ 3 SPAZI}{OFF}{RED}" 

6009 POKEl98,0:F1=PEEK(56321)AND 
1 6:F2 = PEEK(56320)ANDl6 

6010 IFPEEK(197)=62THENPOKEl98,0 
:END 

6012 IFFl=16ANDF2=16THEN6009 

6013 GOTOl00 

6029 REM *** ESPLOSIONE *** 

6030 W=54276 :A=54277:H=54273 
6035 POKEW,129:POKEA,15:POKEH,40 

:POKEC,200:FORI=1T0500:NEXT 

6040 POKEW,128:POKEA,0:RETURN 
7000 PRINT"{CLR}{ 8 GIU'} 

{ 15 DES}FINE GIOCO{OFF}" 

7005 RESTORE 

7006 FORT=lTOl8:READM(T):NEXT 

7007 FORT=1T09:READL(T):NEXT 
7010 FORI=lT05 

7020 FORJ=lT09:POKEL(J)+C,9:POKE 
L(J),M(J):NEXT 

7030 FORK=1T09:POKEL(K)+C,9:POKE 
L(K) ,M (K+9) :NEXT:NEXT 


7050 DATA32,81,32,78,160,77,122, 
32,76,77,81,78,32,160,32,12 
2,32,76 

7060 DATAI 482,1 483,1 484,1 522,1 52 
3,1524,1562,1563,1564 

7070 RETURN 

7502 PRINT" {CLR} { 13 DES}. 

{ 3 GIU'}{RVS}{BLU}BARRIER 
BATTLE{OFF}{ 4 GIU'}" 

7504 PRINT"{ 4 DESjUSANDO IL JOY 
STICK, FARE ANDARE" 

7505 PRINT" { 4 DES} L' {DES} AWERS 
ARIO {DES}CONTRO {DES}IL MU 
RO." 

7506 PRINT"{GIU'}{ 4 DES}HAI 5 B 
UCHI DA USARE.{ 4 SPAZI}CRE 
ALI" 

7507 PRINT"{ 4 DES}CON{DES} IL T 
UO{ 2 SPAZI}PULSANTE DI SPA 
RO." 

7508 RETURN 

7510 PRINT"{CLR}{ 9 GIU'} 

{ 9 DES}{ 3 SPAZI}VELOCITA' 
(1-4) ?" 

7512 PRINT"{ 2 GIU'}{ 9 DES}(1 E 
• LA PIU’ VELOCE)" 

7513 GETS$:IFS$ = ""THEN7513 

7515 SK=VAL(S$):IFSKC1ORSK>4THEN 
751 3 

7520 LV=(SK-1)*10:RETURN 

7600 POKE54 276,1 7:XI=PEEK (162) :X 
2=PEEK(162) 

7610 P0KE54273,X1:POKEC,X2 

7620 POKE54276,16:RETURN 
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Il nome 
della nota 


£ adesso diventa anche tu Beethoven con il 
tuo C64! Facendo partire il programma ti ver- 
rà richiesta la chiave delle note: 
premi A per la chiave di violino (note alte) 
premi 8 per la chiave di basso (note bas¬ 
se) 

permi ’N' per un misto. 

Il programma propone dieci problemmi musi¬ 
cali per ogni partita, e la prova consiste nello 
scrivere sulla tastiera il nome della nota che il 


5 PRINT" {CLR} ":V=»53248:SD=54272: 
POKE64 6,1 4:POKEV+ 32,0 :POKEV+ 33 
,7 : DIM N$(2,24):SC = 0 

6 NO% = 25 :POKEV+21,0 

8 FORI=SDTOSD+28:POKEI,0:NEXTI 
10 FOR I = 0TO2 4 :READNS(0,1) :NEXTI 

15 FOR I = 0TO24 :READNS(1,1) :NEXTI 

20 FOR I = 0TO24 :READNS(2,1) :NEXTI 

25 REM LEGGE I DATI DEGLI SPRITE 
30 FOR I =OT062 : READQ: POKE832+I 
,0: NEXTI 

35 FOR I*0T062: READQ: POKE896+I 
,Q: NEXTI 

40 FOR I=OT062: READQ: POKE960+I 
,Q: NEXTI 

45 REM DICE AL COMPUTER DOVE SI 
TROVA LO SPRITE 

50 POKE204 2,1 3:POKE204 3, 1 4 :POKE2 
044,15 

55 REM POSIZIONE DELLO SPRITE SU 
LLO SCHERMO 

60 POKEV+ 4,160:POKEV+ 5,70 
65 POKEV+6,158:POKEV+7,110 
70 POKEV+8,158:POKEV+9, 1 71 
75 REM COLORI DEGLI SPRITE 
78 POKEV+41,1:POKEV+42,1 :POKEV+4 
3,1 

80 REM ESPANDE GLI SPRITE 
85 POKEV+29,28 :POKEV+2 3,28 
90 REM SETTA I PARAMETRI DEL SUO 
NO 

95 POKESD+24,15 :POKESD+5,4 :POKES 
D+6,170 :POKESD+2,0 :POKESD+3,9 
:POKESD+12,2 


computer disegnerà e suonerà. 

Se la vostra risposta è esatta, il computer ve lo 
segnalerà allegramente. 

Se. al contrario la risposta è errata, il compu¬ 
ter vi dirà il nome della nota. 

Se desideri terminare la partita prima di aver 
risposto a tutti e dieci i quesiti, premi 'Q' al 
posto della risposta. 

Al termine della partita, ti verrà mostrato il 
punteggio sotto forma di percentuale. 


96 POKESD+1 3,243:POKESD+l 9,0:POK 
ESD+20,245 

100 PRINT"{CLR}{ 2 GIU'}";TAB(11 
);"{RVS)IL NOME DELLA NOTA 
(OFF)" 

105 PRINT" { 5 GIU'H 5 DES)SUONE 
RO' PER TE UNA NOTA E" 

110 PRINT"{GIU’)POI MOSTRERÒ' UN 
A NOTA SUL PENTAGRAMMA." 

115 PRINT"{GIU')VOGLIO CHE TU MI 
DICA IL NOME DELLA NOTA" 

120 PRINT" { 3 GIU'H 3 DES} BATTI 
( 2 SPAZI){RED){RVS)B(OFF) P 
ER BASSO, {RVS}A{OFF) PER AC 
UTO," 

125 PRINTTAB(13);"{GIU')0 

{ 2 SPAZI){PVS)M(OFF) PER ME 
DIO." 

128 POKEI98,0 

130 GETES:IFE$»""THENl 30 . 

1 35 IFE$0"A"ANDE$<>"B"ANDE$0"M 
"THENl30 

185 POKE V+33,0 

190 FOR L-1TO10 

200 POKEV+21,0 :PRINT"{CLR} [< 7>] 

{ 2 GIU'){DESjCHE NOTA":PRIN 
T"{GlU'){ 2 DES)E' QUESTA? 

{HOME)" 

205 M»25:S=0:IFE$="B"THENM=13 

210 IFE$="A"THENM=13:S=12 

215 RN% = INT(RND(0)*M+S) 

217 IFRNl=NO%THEN215 

218 NO% = RN% 

220 GOSUB4 500 

225 POKEV+21,28:PRINT"{HOME} 

{GIU*}":GOSUB750 
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230 FORZ=1T02:PRINT"{ 16 DES} 

{ 24 SPAZI}";:NEXTZ 
235 GOSUB750:PRINT"{HOME}" 

245 IFRN%=24THENPRINT"{HOME} 

{ 29 SPAZI}{ 3 *}{HOME}" 

250 IFRN%=12THENPRINT"{HOME} 

{ 12 GIU'}{ 29 SPAZI} 

{ 3 *}{HOME}" 

255 IFRN%=OTHENPRINT"{HOME} 

{ 23 GIU'}{ 30 SPAZI} 

{ 3 *}{HOME} 

260 POKeTOI4+54272-RN%*40,1:POKE 
2014-RN% *4 0,81 

265 PRINT"{HOME}{ 20 GIU'}('Q' P 
ER FINE){HOME}" 

268 PRINT"{HOME}{ 18 GIU'}{RVS}P 
UNTl{OFF} :";SC;"{SIN}% 

{ 2 SPAZI}{HOME}" 

270 PRINT"{ 23 GIU'}{ 2 DES}> 

::GU$="":INPUTGU$:PRINT" 

{ 16 SU}" 

290 IFGU$="Q"THEN 310 

295 IFGU$ =N$(0,RN%)THENGOSUB400 

300 IFGU$ <>N$(0,RN%)THENGOSUB500 

305 IFR+WO0THENSC=INT ( (R/ (R+W) ) 
*100+.5):NEXT 

310 POKEV+21,0 :PRINT"{CLR}" 

315 PRINT"{ 7 GIU 1 }{ 9 DES}IL PU 
NTEGGIO E'";SC;"{SIN}%" 

318 POKE198,0 

320 PRINT"{ 5 GIU'}{ 4 DES}VUOI 
GIOCARE ANCORA";:INPUTY$ 

325 IFLEFT5(Y$,1)="S"THENR=0:W=0 
:SC=0:POKE V+33,7 : GOTO! 00 
330 SYS2 04 8 : REM FINE DEL PROGRAM 
MA 

400 REM CORRETTO 
410 POKESD+11,129 
420 FORI = 536TO9094STEP256 :PRINT" 
{ 3 GIU'}{DES}{WHT}{RVS} COR 
RETTO {OFF}{WHT}":HI=INT(1/2 
56):LO=I-HI*256 

430 PRINT"{SU}{ 2 SPAZI}CORRETTO 
{ 4 SU}[<7>]":POKESD+8,HI :P 
OKESD+7,LO :NEXTI 

440 FORT=1TOT 0:NEXT:POKESD+11,12 
8 :FORT=1TO900:NEXT:R = R+1 :RET 
URN 

500 REM ERRATO 

505 POKESD+18,33:POKESD+16,0:POK 
ESD+15,6 

510 PRINT"{GIU'}SPIACENTE, E'":P 
RINT"{GIU'}ERRATO." 

515 PRINT"{GIU'}ERA: ";N$(0,RN%) 
520 FORT=1TOl000:NEXT:POKESD+18, 
32:FORT=lTO900 :NEXT:W=W+1 : RE 
TURN 


750 FORX=1T05 

755 PRINT TAB(16); : FORI = 1T024 :PR 
INT CHR$(99) ; :NEXT 
760 PRINT"{ 16 DES}{ 24 SPAZI}"; 
:NEXTX:RETURN 

7 80 PRINT"LA NOTA ERA :";N$(0,RN% 

) 

785 W=W+1 : RETURN 

1000 REM DICE AL COMPUTER DOVE S 
I TROVA LO SPRITE 
1005 POKE2042,13:POKE2043,14:POK 
E2044,1 5 

1010 REM POSIZIONA LO SPRITE SUL 
LO SCHERMO 

1015 POKEV+4,160:POKEV+5,70 
1020 POKEV+6,158:POKEV+7,110 
1025 POKEV+8,158:POKEV+9,171 
1030 REM COLORI DEGLI SPRITE 
1 035 POKEV+41,1 :POKEV+42,1 :POKEV 
+ 43,1 

1040 REM ESPANDE GLI SPRITE IN E 
NTRAMBE LE DIREZIONI 
1 045 POKEV+29,28 :POKEV+23,28 
1050 REM ABILITA GLI SPRITE 
1055 POKEV+21,28 

1999 END 

2000 PRINT:GOSUB 4970 

2005 FORZ=1T02:PRINT"{ 16 DES} 

{ 24 SPAZI}";:NEXTZ 
2010 GOSUB4970 :PRINT"{HOME}" 

4500 POKE SD+1,VAL(N$(2,RN%)) : PO 
KESD,VAL(N$(1,RN%) ) :POKESD+ 
4, 65 

4510 FORT=1TO 600 :NEXT:POKESD+4 
, 64 

4520 RETURN 
4970 FORX=1T05 

4980 PRINT TAB(16);: F0RZ=1T024: 

PRINT CHRS(99);:NEXTZ 
4990 PRINT"{ 16 DES}{ 24 SPAZI} 
";:NEXTX:RETURN 

5000 DATAMI,FA,SOL,LA,SI,DO,RE,M 
I,FA,SOL,LA,SI,DO,RE,MI 
5010 DATAFA,SOL,LA,SI,DO,RE,MI,F 
A, SOL,LA 

5020 DATA71,152,71 ,1 2 
5030 DATA233,97,104,143 
5040 DATA48,143,24,210 
5050 DATAI 95,209,31 , 96 

5060 DATA30,49,165,135 
5070 DATAI 62,62,1 93,60,99 
5080 DATA5,5,6,7,7 
5090 DATA8,9,10,11 ,12 
5100 DATAI 4,15,16,18,21 
5110 DATA22,25,28,31 , 33 
5120 DATA37,42,44,50,56 
5140 DATA0,224,0,0,208,0,0,216,0 
,0,204,0,0 
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5145 DATA206,0,0,199,0,0,199,0,0 
,199,0,0,206,0 

5150 DATAO, 204,0,0,216,0,0,240,0 
,0,224,0,1 

5155 DATAI 92,0,3, 1 92,0,6,1 92,0,1 
2,192,0,24,192 

5160 DATAO,48,192,0,96,192,0,224 
,192,0 

5170 DATA48,111,128,97,243,192,1 

95,96,96,198,96,48,195,104, 

48,193 

5175 DATA232,48,96,248,96 


5180 DATA112,96,224,56,96,192,28 
,99,192,7 

5185 DATAll 1,0,1,248,0,0,96,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

5190 DATAO,0,0,0,0,0,0,0,0,0,0,0 

, 0 , 0,0 

5200 DATA 0,248,0,3,6,0,6,3,128, 
6,0,198,3,192,198,3,192,192 
,0,0,198,0,1,134,0,1 

5210 DATA128,0,3,0,0,3,0,0,6,0,0 
,12,0,0,24,0,0,112,0,1,192, 
0,3,0,0,0,0,0,0,0,0 

5220 DATAO,0,0,0,0,0 
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Bowling 


Ecco un divertente gioco del Bowling per 
uno, due o tre giocatori. 

La palla si muove velocemente da un lato 
all'altro della pista, e premendo un tasto do¬ 
vrete cercare di farla partire quando è al 
centro: solo in tal modo riuscirete ad abbat¬ 
tere tutti i IO birilli, un colpo che in gergo si 
chiama STRIKE. 

Per chi non conoscesse le regole del Bowling, 
le riassumiamo in breve. Ogni giocatore ha a 
disposizione IO turni di gioco, durante i quali 
effettua uno o due tiri. Il punteggio ottenuto 
è uguale al numero di birilli abbattuti, ma 
esistono anche dei "punti premio": se con la 


10 L(l)=1193:L(2)=1273:L(3)=1353 
:C$(1)="{HOME}{ 11 GIU'} 

{ 8 DES}" 

11 C$(2)=C$(1)+"{ 13 DES}": C$(3) 
=C$(2)+"{ 13 DES}":C$=C$(1) 

12 BO= 53280:SC=53281:CO = 5427 2 :SC 
(1)=13:SC(2)=15:SC(3)=7:BO(l) 
=13:BO(2)=15 

15 BO(3)=7 

17 FORT=COTOCO+24:POKET, 0 :NEXT:P 
OKECO + 24,15 :POKECO+5,17 :POKEC 
0+6,241:POKECO,30 

18 POKECO+1,10 

110 POKEBO, 0 :POKESC,0 :PRINT" 
{CLR}[<1>]"C$"{ 4 SU} 

{ 4 DES}{RVS} BOWLING 

II 

112 PRINT"{ 8 GIU'}{ 8 DES}{CYN} 
QUANTI GIOCATORI (1-3)?" 

113 GETA$:A=VAL(A$):IFA<10RA>3TH 
EN113 

115 X$ = "I NOMI":IFA = 1THENX$ = "IL 
NOME" 

118 POKEBO,8:POKESC,8:PRINT" 

{CLR}{ 3 GIU'}{ 5 DES}{BLK}I 
NTRODURRE "X$":{ 5 GIU'}" 

120 FORX=1TOA 

121 PRINT"{GIU'}{ 5 DES}GIOCATOR 
E"X; 

122 INPUTA$(X) 

123 A$(X)=LEFT$(A$(X),6):NEXT:PO 
KESC,SC ( 1) :POKEBO,BO(l) 

128 PRINT"{CLR}{GIU'}{ 8 DES} 

{BLU}{RVS} 123456789 


prima palla si ottiene uno STRIKE, non si ef¬ 
fettua il secondo tiro, ma si aggiungono ai IO 
punti già totalizzati quelli dei due tiri seguen¬ 
ti. Se invece col primo tiro si abbatte solo una 
parte dei birilli, si lancia la seconda palla: se 
con essa si ottiene uno SPARE (cioè si abbat¬ 
tono i birilli rimanenti) si aggiungono ai IO 
punti totalizzati nel turno quelli del tiro suc¬ 
cessivo. Chi dovesse effettuare uno SPARE o 
uno STRIKE al decimo e ultimo turno avrà la- 
possibilità di lanciare rispettivamente una o 
due palle supplementari. Sul tabellone, una 
"X" contrassegna gli STRIKE e una / gli 
SPARE seguito. 


10{ 2 SPAZI}{OFF}{RED} ":PR 
INT"{ 9 DES}"; 

129 FORX=ITO10 :PRINT"{RVS}1{OFF} 
2";:NEXT:PRINT"{RVS}3{OFF}" 

132 PRINTTAB(8)"{BLU} { 21 D}":P 
RINTTAB(9)"{GIU 1 }{ 21 D}" 

133 ON-(A=l)G0T0138 

134 PRINTTAB ( 8 ) " {GIU'H 21 D} 

":ON-(A=2)GOT0138 

136 PRINTTAB(8)" {GIU'H 21 D} 

«I 

138 PRINTLEFT$(C$,12)" ”A$(1)":" 

146 IFA>1THENPRINTTAB(14)"{SU}"A 

$ ( 2 )":" 

150 IFA> 2THENPRINTTAB(27)"{SU}"A 
$ ( 3 ) " : " 

154 PRINTLEFT5(C$,12)"{ 2 GIU'} 
{BLU} { 38 F}" 

156 PRINT"{ 9 GIU’} { 38 E}" 

160 FORQ=lTO10 

166 FORZ9=lTOA:POKESC,SC(Z9):POK 
EBO,BO(Z9) 

167 FORX=ITO10 :READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

169 J=0:G=0 

170 GOSUB430 :GOSUB550:P = L(Z9) :GO 
SUB1000:L(Z9)=P 

172 GOSUB1200 

174 ON-(L(Z9)/2 = INT(L(Z9)/2) )GOT 
0169 

175 IF(PEEK(L(Z9)-1)=47ANDQ=10)= 
0THEN195 
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178 

180 

182 

184 

190 

192 

193 

194 


PRINTLEFTS(C$,12)"{ 
{DES}{RED}"A$(Z9)", 
N TIRO!{BLU}" 
FORX=lTO5000:NEXT 


7 GIU'} 
ANCORA U 


PRINTLEFTS(C$,12)"{ 7 GIU'} 

{ 24 SPAZI}" 

FORX=lTO10:READV:POKEV,SI : PO 

KEV+CO,6 :NEXT:RESTORE 

J=0:GOSUB430:GOSUB550:T(Z9)= 

T(Z9)+J:PRINTC$(Z 9) ;T(Z9) 

K=J+48:IFJ+PEEK(L(Z9)-1)-224 

=10THENK=47 

IFK=58THENK=152 

POKEL(Z9),K:POKEL(Z9)+CO,9:G 

0T022 5 ' ^ 


195 

198 


202 

203 

206 

207 

209 


U = 0:IF(PEEK(L(Z 9) 

=10)=0THEN225 
PRINTLEFTS(C$,12)"{ 

{DES}{RED}"A$(Z 9)", 

UE TIRI !{BLU}" 

FORX=1T03000:NEXT 
PRINTLEFTS(C$,12) "{ 

{ 24 SPAZI}" 

L(Z9)=L(Z9)-1 

FORX=lTO10:READV:POKEV,81 : PC 
KEV+CO,6 :NEXT:RESTORE 
J = 0 :GOSUB430 :GOSUB550 :T(Z9 ) = 
T(Z9)+J 


■2)=152ANDQ 


7 GIU'} 
ANCORA D 


7 GIU'} 


210 K=J+176:IFK=186THENK=152:T(Z 
9)=T(Z9)-J*(U=0) 

211 PRINTCS(Z 9) ;T(Z9) :POKEL(Z9) , 
K:POKEL(Z9)+CO,4 :L(Z9)=L(Z9) 
+ 1 


213 IFPEEK(L(Z9)-1)=152THENFORX= 
1TO10:READV:POKEV,81 :POKEV+C 


0,6:NEXT:RESTORE 
214 U=U+1:ONUGOTO209,225 
225 NEXTZ9:NEXTQ 
230 G0T0882 
430 N=1827 : 1=40 

440 POKEN,32 :N=N+I:IFN<16240RN>1 
868THENI=-I 


460 POKEN+CO,0:POKEN,81:GETA$:ON 
-(A$ = "")GOTO440: RETURN 
550 N=N+1:GETAS 
554 IFPEEK (N) 081THEN595 
558 Q2=N:GOSUB610 
560 POKECO+4,17:POKEN-1,32:POKEN 
+CO,0 :POKEN,81 :POKECO+4,16 
562 FORW=lT03 

566 IFPEEK(N-39*W)=8lTHENQ2=N-39 
*W:GOSUB610 

569 IFPEEK(N+41*W)=8lTHENQ2=N+41 
*W:GOSUB610 


572 NEXT 

595 POKECO+4,17 :H = H+1:POKEN-1,32 
:POKEN+CO,0 :POKEN,81:POKECO + 
4,16 

597 IFH=36THEN612 
600 GOTO550 

610 J=J+1:POKECO + 4,33 :POKEQ2,32 : 
FORT=ITO50 :NEXT:POKECO+4,32: 
RETURN 

612 H = 0:POKEN,32 :POKEN-1,32:RETU 
RN 

882 PRINTCS;"{ 3 GIU'}{RVS}{BLK} 
PUNTEGGI FINALI{GIU'}{BLU}" 

883 PRINT"{ 9 DES}"A$(1);T(1):IF 
A>1THENPRINT"{GIU'}{ 9 DES} 
"AS(2) ;T (2) 

884 IFA=3THENPRINT"{GIU'} 

{ 9 DES}";A$(3);T(3) 

887 PRINT"{RED}{GIU'}{ 8 DES}ANC 
ORA (S/N)?" 

894 GETAS:IFA$=""THEN894 

895 IFA$="S"THENRUN 

896 SYS2048 

1000 G=J: IFP/20INT (P/2) THENG=G+ 
176 

1002 IFG=186THENG=152 
1004 IFP/2=INT(P/2)THENG=G+48 
1006 IFG+PEEK(P-1)-224=10THENG=4 
7 

1012 POKEP,G:POKEP+CO,9 :IFG=152T 
HENP=P+1:G=0 
1100 P=P+1: RETURN 
1200 : 

1201 T(Z 9)=T(Z9)+J 
1205 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-2 
) =47) 

1210 T(Z9)=T(Z9)-10*(PEEK(L(Z9) — 
3)=47ANDPEEK(L(Z9)- 2)=152) 
1220 IFL(Z9)=12720RL(Z9)=13520RL 
(Z9)=1432THEN1290 
1225 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-4 
)=152) 

1227 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-3 
)=152) 

1228 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-5 
)=152ANDPEEK(L(Z9)- 3)=152) 

1230 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-6 
)=152ANDPEEK(L(Z 9)- 4 ) =152AN 
DPEEK(L(Z9)- 2)=152) 

1290 PRINTCS(Z9);T(Z9) 

1300 RETURN 

2200 DATA1661,1700,1739,1741,177 
8,1780,1819,1821,1860,1901 
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Lancio! 


LANCIO 1 è un gioco in cui dovete cercare di 
portare a terra sano e salvo un paracudista. 
Ci sono tre basi di atterraggio, contrassegna¬ 
te da 2X, 5X e I0X. e ognuna di esse è più 
piccola e quindi più difficile da centrare della 
precedente. Prima di ogni lancio avete 15 se 
condì per scegliere, tramite il joystick, la 
base-obiettivo (altrimenti il computer decide 
per voi). Dopo ciò. l'aereo sorvola le basi e 
voi dovete sganciare il paracadutista al mo¬ 
mento giusto, tenendo conto del vento che 
talvolta è molto forte; il paracadute si apre 


10 T7=54272:GOSUB20000: NE = 2:PRIN 
T"{CLR}":GOTO60100 
12 A(l) =1194:A(2)=1205:A(3)=1214 

14 SC = 0:BO=100:BA=3:WA=7:W=8 : EX = 
0 

16 PRINT"{RED}{HOME} PUNTI: 

{ 3 SPAZI}"; 

20 GOSUB5000:POKET7 + 4,65:POKET7 + 
11,65:POKET7+18,65 

21 PRINT"{HOME}";TAB(19);" 

{ 3 SPAZlH 3 SIN} " ; A$ 

30 A=0 

100 PRINT"{HOME}{GIU 1 }";TAB(A);" 
[< 4 >] {OFF} {RVS}[< * >1 
{ 2 SIN}{GIU'}{OFF} {RVS} 

[< 2 I>]{BLU}":A=A+1 
105 IFA> = 38THENPRINT"{HOME} 

{GIU 1 }";TAB(A) ;" {GIU' } {SIN} 
{ 3 SPAZI}":A=0 

110 GOSUBlOOO: IFFR< >OTHENFORI = IT 
030:NEXT: GOTO100 
112 IFA> 380RA<1THEN100 
120 PRINT"{HOME}{GIU'}";TAB(A);" 

{SIN}{GIU'}{ 2 SPAZI}" 

200 B=1144+A:T=INT(RND(TI)*8+1): 
T=T+1:POKET7 + 4,64 :POKET7 + 11, 
64 :POKET7 + 18,64 
210 CH=46:C=0 
212 C=C+1 

220 POKEB,CH:POKEB,32 :B = B+40 
230 POKEB+T7,4 :POKEB,CH:IFC<TTHE 
NFORY=ITO8 0 :NEXT:G0T0212 
300 CH=65 

305 POKEB+T7,4 :POKEB,CH 
310 GOSUBlOOO:C=C+1 


automaticamente, e potete usare il joystick 
per influenzare la traiettoria. L'atterraggio e 
valido solo se avviene sulla base prescelta, e 
frutta un punteggio dato da un "bonus " 
moltiplicato per il numero della base. Il " bo¬ 
nus" vale lazialmente 100 punti a aumenta 
di 50 ogni due atterraggi portati a buon fine 
Avete a disposizione tre paracadutisti, e rag¬ 
giungendo i 5000 punti potete vincerne un 
quarto. 

Ecco le versioni del programma per il VIC 20 
senza espansioni di memoria e per il 64. 


320 IFC>=WTHENIFR = 4THENPOKEB,32 : 
B = B-1:POKEB+T7,4 :POKEB,CH:C = 
0 

330 IFC>=WTHENIFR=8THENPOKEB,32: 
B=B+1:POKEB+T7,4 :POKEB,CH:C = 
0 

340 D=D+1 

350 IFD>=WATHENPOKEB,32 :B=B+40 
355 IFD>=WATHEND = 0 : IFPEEK (B) 0 32 
THEN3000 

360 P0KEB+T7,4 :POKEB,CH 
370 WI=WI+1 

390 IFWI>=SANDDI=-1THENPOKEB,32 : 

B=B+DI:POKEB+T7,4:WI=0 
395 IFWI>=SANDDI = 1THENPOKEB,32 :B 
=B+DI:POKEB+T7,4 :WI = 0 
400 IFPEEK (B) 032ANDPEEK (B) OCHT 
HEN3000 
410 POKEB,CH 
500 GOTO300 
1000 R=PEEK(56321) 

1010 FR=RAND16 

1020 R=15-(RAND15):RETURN 

3000 POKEB+T7,4 

3010 IFP=lTHENIFB=18310RB=18320R 
B=18330RB=1834THENPOKEB,CH: 
GOT04000 

3020 IFP= 2THENIFB = 184 20RB = 184 30R 
B=184 4THENPOKEB,CH:GOTO4050 

3030 IFP=3THENIFB=18540RB=18550R 
B=18560RB=18570RB=1858THENP 
OKEB,CH:GOTO4100 
3040 POKEB,170:GOT012000 
4000 PRINT"{HOME}{ 8 GIU’}"TAB(1 
3)"5 X";BO;"=";5*BO 
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4010 VA= 5*BO: GOTO10000 

4050 PRINT"{HOME}{ 8 GIU'}"TAB(1 

I) "10 X" ;BO;;10*BO 
4060 VA=10*BO:GOTOIOOOO 

4100 PRINT"{HOME}{ 8 GIU'}"TAB(1 
3)"2 X";BO;"=";2*BO 
4110 VA= 2*BO:GOTOIOOOO 
5000 PRINT"{HOME}{ 19 GIU'}" 

5020 PRINT"{ 6 SPAZI}{BLK}[<L>] 
{YEL}[< 4 I>]{BLK}[<J>] 

{ 5 SPAZI}{BLK}(<L>]{YEL} 

[< 3 I>]{BLK}[<J>] 

{ 7 SPAZI}[<L>]{YEL} 
l< 5 I>]{BLK}t<J>]{BLU}" 
5030 PRINT" {RVS}{RED} 

{ 7 SPAZI}5X{ 8 SPAZI}10X 
{ 10 SPAZI}2X{ 6 SPAZI} 

{OFF}{BLU}"; 

5040 FORI = 19 44TO2023 :POKEI+T7,6 : 
POKEI,160:NEXT 

5041 IFBA<=OTHEN60000 

5042 PRINT"{HOME}";TAB (19);" 

{ 14 SPAZI}" 

5043 IFBA>1THENPRINT"{HOME}";TAB 
(28) ; : FORI = 1TOBA-1:PRINT" 
{GRN}A{BLU}";:NEXT:PRINT 

5045 SS=INT(RND (TI)*3 + 1) :DI = INT( 
RND(TI)*2+1):IFDI=2THENDI=- 
1 

5048 IFSS=1THENS = 5 :SD = 15 

5049 IFSS=2THENS=10:SD=10 

5050 IFSS = 3THENS = 15: SD = 5 

5052 D$ = "DESTRA": IFDI = -1THEND$ = " 
SINISTRA" 

5053 IFNJ>=NETHENBO=BO+50:PRINT" 

{HOME}{ 8 GIU'}"TAB(12)"BON 
US:{RED}"BO"{BLU}PUNTI" 

5054 IFNJ>=NETHENIFWA>4THENWA=WA 
-1 

5055 IFNJ > = NETHENNJ = 0 : IFW<18THEN 
W=W+1 

5056 PRINT"{HOME}{ 16 GIU'}"TAB( 

II) "VENTO:"SD"A "D$:GOSUB50 
000 

5057 FÒRK=1T01000:NEXT:PRINT" 
{HOME}{ 3 GIU'}{ 38 SPAZI} 

II 

5060 FORI = 1104T01904STEP40 :POKEI 
,96 :POKEI+ 39,96:NEXT 
5070 RETURN 
10000 JM=JM+1:NJ = NJ+l 
10100 FORP=1TOVA/10:SC=SC+10:PRI 
NT"{HOME}{RED} PUNTI:";SC: 
NEXT 

10110 FORID = 1T03000:NEXT: IFEX = 0A 
NDSC>=5000THENBA=BA+1:EX=1 


10120 PRINT"{HOME}{ 8 GIU'} 

{ 38 SPAZI}”:GOTO20 
12000 PRINT”{HOME}{ 8 GIU'}"TAB( 

13) "NIENTE BONUS!":BA = BA-1 
12010 FORID=1TO30OO:NEXT 

12120 POKEB,32:PRINT"{HOME} 

{ 8 GIU'}{ 38 SPAZI}":GOTO 
20 

20000 FORK = 0TO24 :READX:POKET7 + K, 
X :NEXT 

20010 DATA9,2,0,3,0,0,240, 12,2,0 
,4,0,0,192,16,2,0,6,0,0,64 
,0,30,243,31 
20020 RETURN 
50000 : 

50010 PRINT"{HOME}{ 9 DES} 

{ 4 GIU'}{RED}5X 
{ 8 SPAZI}10X{ 7 SPAZI}2X 
{BLU}":P=1:Z=P 

50020 TI$="000000" 

50025 POKEA(P),PEEK(A(P))+128AND 
255 :PRINT 

50027 TM=15-VAL(TI 3) 

50029 PRINT"{HOME}"TAB(37);" 

{ 2 SPAZI}{ 3 SIN}";TM:IFT 
M= 0THENP=INT(RND(TI)*3 + 1) : 
GOTO50100 

50030 GOSUB1000:IFR=40RR=8THENX= 
PEEK(A(P)):IFX>129THENPOKE 
A(P) ,X+128AND25 5 

50035 IFFR=0THEN50100 

5004 0 GOSUB100 0:IFR=4THENP = P-1 : I 

FP<1THENP= 3 

50045 IFR=8THENP=P+1:IFP>3THENP= 
1 

50050 FORID=ITO100 :NEXT: GOTO 50 0 2 
5 

50100 A3 = "2X":IFP=1THENA$ = "5X" 
50110 IFP = 2THENAS = "10X" 

50120 PRINT"{HOME}{ 9 DES} 

{ 12 GIU'}{GRN} DEVI ATTER 
RARE SU {RED}"A$"{BLU}" 
50140 FORID=lTO3000:NEXT:PRINT" 
{HOME}"TAB(37)"{ 2 SPAZI} 

II 

50150 PRINT"{HOME}":FORID=lT018: 

PRINT"{ 34 SPAZI}":NEXT: RE 
TURN 

60000 PRINT"{HOME}{ 9 GIU'}"TAB( 

14) "{BLK}{RVS} FINE GIOCO 
":IFSC>HITHENHI=SC 

60010 GOSUB1000 : IFFRO0THEN60010 
60100 POKE53280,6 :POKE53281,6 : PR 
INT"{CLR}{ 4 GIU’}{YEL} 

{RVS}"TAB(12)" LANCIO 
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60120 PRINTTAB(12)"{ 6 GIU’} 
(BLK)USA IL JOYSTICK" 

60140 PRINTTAB(14)•{ 6 GIU’) 

( < 3> ) RECORD : (RVSHWHTj'MI 
DS(STRS(HI),2) 


60150 PORID= ITO3000:NEXT 

60160 GOSUBIOOO : IFFRO0THEN60160 

60170 POKE53281,1:PRINT"(CLR}":G 
0T012 



Addio Charlie 


Mentre ondate per la vostra strada attraver¬ 
so un cimitero in un notte buia e tempesto¬ 
sa. fate attenzione alle pietre tombali. Se 
sbattete in un una di esse, scoccherà un 
lampo- e scocca una volta sola -. Il gioco pre¬ 
vede cinque livelli di difficoltà. 

£ una notte scura, tempestosa con venti ui ■ 
tanti e rombi di tuono. Dovete tornare a casa 
- ma dovete innanzi tutto attraversare un ci¬ 
mitero. 

Dato che non credete nei fantasmi non do¬ 
vete preoccuparvene. Ma il cimitero è 
molto antico e ci sono un mucchio di pietre 
tombali, sparse quà e là. Dovete offretu.-- 
ma non dovete sbattere in una lapide - se lo 
fate, sarete colpiti dal fulmine e... addio. 
Charlie! 

Come si gioca 

"Addio Charlie" è stato progettato in origine 
per il VIC 20 privo di espansione di memoria. 
La versione per il C64 include istruzioni in¬ 
corporate nel programma. 


Nella versione VIC. quattro tasti (Q. A. S, Z) 
vengono utilizzati per controllare il movimen¬ 
to. Il tasto L viene usato per illuminare lo 
schermo quando è necessario dare una oc¬ 
chiata al cimitero. 

Il successo m questo gioco dipende dalle vo¬ 
stre capacità di osservazione e mnemoniche. 
All'inizio del gioco, il calcolatore piazza ca¬ 
sualmente le lapidi ed illumina per breve 
tempo lo schermo, in modo da permettervi 
di vedere gli ostacoli. Date una buona oc¬ 
chiata al cimitero. Questa prima occhiata è 
gratuita, ma ogni altra occhiata oltre a que¬ 
sta vi costerà dei punti. 

Dovete muovervi attraverso uno schermo 
completamente scuro basandovi solo sulla 
vostra memoria per quanto riguarda la posi¬ 
zione delle lapidi. Ricordatevi - se perdete il 
vostro sangue freddo, potrete ottenere delle 
ulteriori "sbirciatine" al cimitero premendo 
L, ma ciò sottrarrà punti al vostro punteggio 
totale. 


1 POKE532 81 , 1 2:POKE532 80,1 3 

5 CL= 54 2 72 

6 PRINT"{CLR}" 

7 PRINTTAB(10)"{ 10 GIU'}{BLK} 

{ 2 SPAZI}ADDIO CHARLIE!" 

10 FORA=1 0 2 4TOT 063 :POKEA,4 3 :POKE 
A+CL,1 :NEXT 

15 FORA=1 06 3T02 02 3STEP4 0 :POKEA,4 

3 :POKEA+CL,1 :NEXT 
25 FORA = 202 3T01 984STEP-1 :POKEA,4 

3 :POKEA+CL,1 :NEXT 

30 FORA=1 984T01 024STEP-40 :POKEA, 

4 3 :POKEA+CL,1 :NEXT 
32 FORI = 1T02800 :NEXT 

34 POKE53281 ,0 :POKE53280,0 

35 PRINT"{CYN}{CLR}{ 2 GIU'lE' U 
NA NOTTE NERA, FREDDA E PIOVO 
SA. " 

36 PRINT"{GIU'}AVETE SCELTO DI A 
TTRAVERSARE UN CIMITERO" 

37 PRINT"PER TORNARE A CASA, MA 
C'B* UN VIOLENTO" 

38 PRINT"{GIU’JTEMPORALE E IL CI 
MITERO E' ILLUMINATO" 


39 

40 

42 

44 

45 

46 
48 
50 

65 


70 

75 

80 

85 


PRINT"{GIU'}A TRATTI DAI LAMP 

I." 

PRINT"{GIU 1 }SE SBATTETE IN UN 
A LAPIDE VERRETE COLPI-" 

PRINT"TI DAI FULMINI." 

PRINT"{GIU*}[<3>]{ 4 SPAZI}VO 
LETE LE DIREZIONI (S/N)" 

GETA$:IFA$=""THEN45 


1 

! 

! 

* 

V 


IFA$ = "N"THEN90 


PRINT"{CLR}{GIU 1 }" . 

PRINT"{ 2 GIU'}[<5>]INSERITE 
IL JOYSTICK NELLA PORT #2." 

PRINT"{ 3 GIU'}POTETE PREMERE I 
IL {WHT}PULSANTE DI SPARO 
[<5>] " 

PRINT"{GIU'}PER UNA RAPIDA OC i 
CHIATA AL CIMITERO, MA" 

PRINT"{GIU 1 4 }OGNI OCCHIATA ABB . 
ASSERA’ IL VOSTRO PUN-" 5 

PRINT"(GIU 1 }TEGGIO.":PRINT" 

{ 2 GIU'}{WHT} PREMI {RVS}RET 1 
URN{OFF} PER CONTINUARE" 

GETA$ : IFA$OCHR$ ( 1 3) THEN85 
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90 PRINT"{WHT}{CLR}{ 3 GIU'jLIVE 
LLO DI DIFFICOLTA "’:SC=0:C=30 
720 

91 PRINTTAB(12)"{ 2 GIU’}{YEL}1 
{PUR}2 [<6>]3 [<7>]4 {CYN}5" 

92 GETA$:IFA$<"1"ORA$>"5"THEN92 

93 IFA$ = "1"THENZ = 5 5:CU = 2 012 :DF= . 
2 

94 IFA$="2"THENZ=80:CU=2016:DF=. 
25 

95 IFA$ = "3"THENZ = 110:CU=2006:DF = 

. 3 

96 IFA$ = "4"THENZ = 130:CU=2019:DF = 
. 35 

97 IFA$ = "5"THENZ = 160:CU = 2002:DF = 
.4 

98 GOSUB2 00:GOSUB50 00:GOSUB2 00 :G 
OSUB5000 :PRINT"{CLR}":GOT041 0 

100 PRINT"{CLR}" 

105 PRINTTAB(25)"{ 2 N} " 

110 PRINTTAB(23)"NZ{ 2 N}" 

115 PRINTTAB(22)"T 2 N}MN" 

120 PRINTTAB(19)"NZ{ 2 NT" 

125 PRINTTAB(18)"T 2 N}MN" 

130 PRINTTAB(17)"{ 2 N}" 

135 PRINTTAB(16)"{ 2 N} " 

140 PRINTTAB(16)"Z" 

145 PRINTTAB(15)"N" 

146 PRINT"{CLR}":RETURN 

148 PRINT"{CLR}":PRINTTAB(25) " 

{ 2 N}" 

150 PRINTTAB(23)"NZ{ 2 N}" 

152 PRINTTAB(22)"T 2 N}MN" 

155 PRINTTAB(19)"NZ{ 2 N}" 

160 PRINTTAB(18)" NMN " 

162 RETURN 

1 65 PRINT"{CLR}":PRINTTAB(25)" 

{ 2 N}" 

170 PRINTTAB(23)"NZ{ 2 N}" 

175 PRINTTAB(23)" NMN " 

178 RETURN 

180 PRINT"{WHT}" 

200 PRINT"{WHT}":FORT=lT03:GOSUB 
165 :FORR=1TO30:NEXTR,T 
205 FORT=lT03:GOSUBl48:FORR=lT03 
0 :NEXTR,T 

210 FORT=lT09:GOSUBl00:NEXT 
222 POKE649,1 

225 FORT=1T09:POKE53281 , 3 :POKE53 
281 ,1 

227 POKE53281,0:NEXT 
230 REM PRODUCE DEI RUMORI 
235 REM DISATTIVA I RUMORI 
238 RETURN 
410 FORK=l.TOZ 

415 X=INT(RND(1)*880)+1144 
420 POKEX,97 :POKEX+CL,0 :NEXT 


425 POKECU,15:POKECU+CL,1 :POKECU 
-40,32:POKECU+1,40:POKECU-1, 
40 

430 FORT=l 024TO1184 :POKET,32:NEX 
T 

435 FORT=1 024TO1 062 :POKET,3 5 : POK 
ET+CL,3:NEXT 
440 POKEl044,32 

442 GOSUB800:SC=SC+(INT(SC/10)) 

445 IFPEEK(56320)=1 27THEN4 4 5 

446 IFPEEK(1044)=15THEN700 

447 POKE649,1 

450 IF(PEEK(56320)ANDl)=0THEN500 

455 IF(PEEK(5632 0)AND4)=0THEN520 

460 IF(PEEK(56320)AND8)=0THEN54 0 

465 IF(PEEK(5632 0)AND2)=0THEN560 

470 IF(PEEK(56320)ANDl6)=0THENGO 
SUB800 
475 G0T0445 

500 IFPEEK(CU-40)=97THEN600 
505 IFPEEK(CU-40) =35THENCU = CU + 40 

515 POKECU,32 :CU=CU-40 :POKECU+CL 
,1 : POKECU, 15 :S=CS+1 0:GOTO44 5 
520 IFPEEK(CU-1)=97THEN600 
525 POKECU,32 :CU=CU-1 :POKECU+CL, 
1 :POKECU,15 :SC=SC+10:GOTO445 

540 IFPEEK(CU+1)=97THEN600 

545 POKECU,32:CU=CU+1:POKECU+CL, 

I :POKECU,15 :SC=SC+10:GOTO445 

560 IFPEEK(CU+40)=97THEN600 
565 POKECU,32:CU=CU+40:POKECU+CL 
,1 :POKECU,15:SC=SC-10 :GOT044 
5 

600 PRINT"{CLR}{ 2 GIU'}[<1>]" 
605 PRINTTAB(15)"{ 4 GIU'jR.I.P. 

II 

610 GOSUB230 

615 PRINTTAB(7)"{PUR}{ 4 GIU'}MO 
LTO MALE CHARLIE! !" 

620 FORT=1T02 500 :NEXT:PRINT" 

{ 2 GIU'}{ 7 DES}UN'ALTRA PA 
RTITA? (S/N)" 

625 GETA$:IFA$=""THEN625 
62 8 IFA$<>"S"ANDA$<>"N"THEN62 5 
630 IFA$ = "S"THEN90 
640 PRINT"{CLR}" 

645 PRINTTAB(12)"{ 3 GIU’}ADDIO 
CHARLIE!" 

650 END 

700 PRINT"{BLU}{CLR}{ 2 GIU'} PU 
NT1 = "; INT(SC*DF) *10 
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710 POKK53281,12:PRINT" 

( 7 GlU'}SEI TORNATO A CASA 
SANO E SALVO CHARLIE!" 

730 FORT-1T02500:NEXT:PftINT" 

( 4 GIU'H 7 DES)UN' ALTRA PA 
RTITA? (S/N)" 

735 GETAS:IFA$*""THEN735 
740 IFAS="S"THENPOKE53281,OsGOTO 
90 

745 GOTO640 

800 SC-SC-(INT(SC/10)) 


805 FORT»1T04:POKE53281,7:FORD*1 
TO70:NEXTD:P0KE53281,OsNEXT: 
GOSUB225:GOTOSOOO 
5000 S-l3*4096*4*256 
5010 FORT»STOS+24:POKET,0 :NEXT 
5020 POKES+-24,1 5 

5030 POKES* 5, 16*1 *10:POKES*6,16* 
5*1 1 

5040 POKES*1,80:POKES,80 
5050 POKES* 4,129 : FORT*1TO300:NEX 
T:POKES+4,128 
5060 RETURN 
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Mevets 


joystick 


Questo gioco richiede sia strategia che un 
po' di destrezza. 

L'unica arma di difesa è montata su una tor¬ 
retta che può essere alzata e abbassata 
usando il joystick. Inoltre, sempre con il joy¬ 
stick si può puntare a sinistra, destra e spa¬ 
rare. 

0 sono 40 livelli di gioco: per passare al livel¬ 


2 PRINTCHR$(142) : POKE56,48 : CLR 

3 FORL= 54272T054 2 96 :POKEL,0:NEXT 
:POKE54296,1 5:POKE54 277,72 : POR 
E54278,90 

4 HF=54273:LF=54272:VO=54276 

5 POKE53281 , 1 :POKE53280,1 5:PRINT 
"{CLR}{ 12 GIU'}"TAB(10)"{RED} 
ATTENDERE UN MOMENTO" 

10 PRINTCHR$(142):POKE56334,PEEK 
(56334)AND254 

11 POKEl ,PEEK(1)AND2 51 : FORI = 0TO5 
1 1 :POKEI + 1 2288,PEEK(1 + 5324 8) : 
NEXT 

13 POKEl ,PEEK(1)OR4:POKE56334 , PE 
EK(563 3 4)ORI 

20 POKE53272, (PEEK(53272)AND240) 
ORI 2 

30 FORC=1 2800T01 2879 :READA:POKEC 
,A:NEXT 

40 DATAI 29,66, 36,24,24,36,66,1 29 
,16,24,28,30,27,25,24,255 

45 DATA8,24,56,120,216,152,24,25 
5 

50 DATA24,24,24,24,24,24,24,255, 
255,153,153,153,153,153,153,2 
55 

55 DATAI 45, 82,0,27,21 6,0,74,1 37 

60 DATAI 6, 56,56,84,1 46,56,40,40, 
16,24,12,6,3,1,0,0,8,24,48,96 
,192,128,0,0 

70 DATAI 29,90,36,90,90,36,90,1 29 

73 PRINT"{CLR}( 12 GlU’}"TAB(16) 
"{RED}NEVETS": FORI = 1T02 0 00 : NE 
XT 

75 PRINT"{CLR}":CL=54272:FORX=l5 
84T01 62 3 :POKEX+CL,6:POKEX,68: 
POKEX+400+CL,6 

80 POKEX+400,68:NEXT 

90 GOTO 168 

100 JV=PEEK(56320):P=15-(JVANDl 5 
):FR=JVANDl6 

101 IFP=0ANDFR=16THENRETURN 


lo successivo, occorre eliminare, entro 60 se¬ 
condi, la quota di invasori visualizzata sullo 
schermo. 

Quando si realizza la quota richiesta si rice¬ 
ve un bonus pari al tempo rimasto moltipli¬ 
cato per dieci. 

La partita termina quando tutte e quattro le 
capsule vengono perse. 


105 IFP=0ANDC=65THENS=41:T=71 

106 IFP = 0ANDC=66THENS = 39:T=7 2 : RE 
TURN 

110 IFP=1THENA=A-40:IFA<1164THEN 
A= 1164:RETURN 

120 IFP=2THENA=A+40:IFA>2004THEN 
A= 2004 : RETURN 

130 IFP=4THENC=66:S=39:T=72:RETU 
RN 

135 IFP=5THENA=A-40:C=66:S=39:T= 
72 :IFA<1164THENA=1164:RETURN 

136 IFP=6THENA=A+40:C=66:S=39:T= 
7 2 : IFA>2 004THENA_=2 004 :RETURN 

1 40 IFP = 8THENC = 65 :S=*41 :T=71 : RETU 
RN 

145 IFP=9THENA=A-40:C=65:S=41:T= 
71 :IFA<1164THENA=1164 : RETURN 

146 IFP=10THENA=A+40:C=65 :S = 41 :T 
=71 :IFA> 2004THENA= 2 004 : RETUR 
N 

150 RETURN 

168 V=0 

170 E=3:J=16:YY=0:W=0:U=0:FORI=1 
02 4T01 263 :POKEl,32 :NEXT 

175 POKEF,32 :POKEK,32 :POKEQ,32 

130 F=1 94 4 :K=F:G=1:L=G:FORX=l084 
T02004STEP40:POKEX,32 

185 NEXT:GOSUB950:YY=YY+1:IFYY=1 
0THENYY=1 :E = E-(E*.5) :J = J-(J* 
.5) 

190 A=2004:C=67:D=0:I=0:O=0:TI$= 
"000000":Y=0:W=W+1 

195 GOSUB1100 

200 GOSUB1 00 : POKF.A+CL, 0 : POKEA,C : 
IFA< 2004THENPOKEA+4 0+CL,0 : PO 
KEA+40,64 

205 IFP = 20RP = 60RP=1OTHENPOKEA-4 0 
+CL,1 :POKEA+CL,0 :POKEA,C 

210 IFFR=0ANDA<2004THENQ=A 

211 POKEHF,34:POKELF,75:POKEVO,6 
5 : FORI = 1T05:NEXT 
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212 IFFL=1THENPOKEF, 32 :GOSUB800: 
F=KK:G=LL 

213 POKEF, 32 :F=F+G:POKEF+CL,2 : PO 
KEF,70 

214 XFPEEK(F+G)=73ANDFL=OTHENPOK 
EVO,64 :GOTO700 

215 IFPEEK (F+40+G) O68THENP0KEF, 
32 :POKEVO,16:GOSUB800:F = KK:G 
= LL 

222 POKEHF,45:POKELF,198:POKEVO, 

17 : FORI = 1T05:NEXT 

223 IFKL=1THENPOKEK,32:GOSUB800: 
K=KK:L=LL 

224 POKER,32 :K=K+L:POKEK+CL,2 : PO 
KEK,70 

225 IFPEEK(K+L)=73ANDKL=OTHENPOK 
EVO,64:GOTO600 

226 IFPEEK (K+40+L) O68THENP0KEK, 
32 :POKEVO,16 :GOSUB800:K=KK : L 
= LL 

230 KL=0:FL=0:IFFR=0THEN235 

231 GOSUBl 000 :POKEA+CL,0 :POKEA,C 

:IFA< 2004THENPOKEA+4 0+CL,0 :P 
OKEA+40,64 

232 IFP=2THENPOKEA-40+CL,1:POKEA 
+CL,0:POKEA,C 

2 35 IFFR=0ANDQ< 2004 ANDC067THENP 
OKEQ,32 :GOT02 42 

240 GOTO305 

242 POKEHF,100:POKELF,85:POKEVO, 

17:FORI=lT010:NEXT 

245 IFPEEK(Q+S)=70THENPOKEQ,32 :Q 
=Q+S:POKEQ+CL,11:POKEQ,69:GO 
SUB400:GOTO305 

246 IFPEEK(Q+S)=73THENPOKEQ+S+CL 
,2:POKEQ+S,73:GOTO305 

250 IFPEEK(Q+S)=680RPEEK(Q+S)=69 
THENPOKEQ,32:POKEVO,16:FR=16 
:GOTO305 

265 IFC<>6 7THENQ=Q+S:POKEQ+CL,0 : 
POKEQ,T 

305 POKEVO,16:PRINT"{HOME}{BLU}T 
EMPO{BLK}"60-INT(TI/60)" 
{SIN} 

306 PRINTTAB(26)"{BLU}LIVELLO 
{ 2 SPAZI}{BLK}";W 

310 PRINT"{HOME}{GIU'}{BLU}MAX P 
UNT.{BLK}";V; 

311 PRINTTAB(26)"{BLU}PUNTEGGIO 
{BLK)";U:IFTI/60>=60THEN500 

315 PRINT"{HOME}{ 2 GIU'}{BLU}NE 
VETS RIMANENTI{BLK}";YY-Y;SP 
C( 7)"{BLU}ELIMINATI{BLK}";Y 

320 IFY=YYTHENU=U+(10*(60-INT(TI 
/60))):GOT0175 


321 GOSUBl 000 :POKEA+CL,0 :POKEA,C 

: IFA<2004THENPOKEA+40+CL,0 :P 
OKEA+40,64 

322 IFP=2THENPOKEA-40+CL,1:POKEA 
+CL,0 :POKEA,C 

323 IFFL=1ORKL=1THEN200 

324 IFFRO0THEN200 

325 IFPEEK(Q+S)=70THENPOKEQ,32:Q 
=Q+S:POKEQ+CL,11 :POKEQ,69:GO 
SUB400:GOTO200 

326 IFPEEK(Q+S)=73THENPOKEQ+S+CL 
,2:POKEQ+S,73:GOTO200 

327 IFPEEK(Q+S)=680RPEEK(Q+S)=69 
THENPOKEQ,32 :POKEVO,16:FR*16 
:GOTO200 

328 IFCO67THENP0KEQ, 32 : Q=Q+S : PO 
KEQ+CL,0:POKEQ,T:GOT0211 

330 GOTO200 

400 U=U+50:Y=Y+1:FR=15 :KL=1 :POKE 
VO,16:POKEHF,68:POKELF,200 :P 
OKEVO,129 

405 IFPEEK(F)=69THENFL=1 

406 IFPEEK(K)=69THENKL=1 

410 FORI = 1TO50:NEXT:POKEVO,128 : P 
OKEQ,32 : RETURN 

500 PRINT"{HOME}{ 3 GIU'}{BLK} 

{ 15 SPAZI}GAME{ 2 SPAZI}OVE 
R":FORX=lT02000 :NEXT 
505 IFU>VTHENV=U 
510 PRINT"{GIU'}{BLK}{ 7 SPAZI} 
PREMERE FUOCO PER RIPARTIRE" 

520 P=PEEK(56320) :FR=PANDI 6 
530 IFFRO0THEN520 
540 GOTO 170 

600 POKER,32:POKEK+L,32:0=0+1 :IF 
0=4THEN500 

610 GOSUB800:K= KK:L=LL:GOT02 35 
700 POKEF,32:P0KEF+G,32:0=0+1:IF 
0=4THEN500 

710 GOSUB800:F=KK:G=LL:G0T0222 
800 N=INT(RND(1)*4)+1 :ONNGOTO810 
,820,830,840 

810 KK=1544:LL=+1:RETURN 
820 KK=1 583 :LL=-1-.RETURN 
830 KK=1 944 :LL= + 1: RETURN 
840 KK=1 98 3 :LL=-1 : RETURN 
950 X=1563:POKEX+CL,2:POKEX,73:X 
= X+2:POKEX+CL,2 :POKEX,7 3 :X=1 
963 :POKEX+CL,2 

960 POKEX,73 :X=X+2:POKEX+CL,2 : PO 
KEX,73:RETURN 

1000 JV=PEEK(56320):P=15-(JVAND1 
5) 

1005 IFP=0THENRETURN 
1010 IFP=1THENA=A-40:IFA<1164THE 
NA=1164 : RETURN 
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1020 IFP=2THENA=A+40:IFA>2004THE 
NA=2004:RETURN 
1 030 IFP=4THENC=66: RETURN 
1 040 IFP = 8THENC=65 :RETURN 
1050 RETURN 


1100 PRINT"{HOME}{ 20 GIU'}"TAB( 

16)"{RED}LIVELLO{BLK}";W:FO 

RI = 1TO1 000:NEXT:PRINT" 

{HOME}" 

1110 FORI = 1 824T01 86 3 :POKEI,32 : NE 
XT:RETURN 
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Poker 


Il programma inizia con un'originale introdu¬ 
zione, con musica e suoni, e scorrimento 
orizzontale del testo riassuntivo delle varie 
combinazioni e delle relative vincite. 

Viene indicato il numero di ogni mano, e ap¬ 
paiono cinque (5) carte scelte a caso dal 
computer. Lo scopo è quello di formare la 


20 POKE532 81 , 1 :POKE53280,1 4 :pri 
NT"{CLR}":FORA = 90 8T099 8 : READB 
:POKEA,B:NEXT 
30 WK=1024 
40 CL=54272 

60 DIMJ%(13,4):DIMG$(20):WA=CL+4 
:VL=CL+2 4 : Di=0:SC = 0:HD = 0 
65 FOR T=CLTOCL+24:POKET,0 :NEXT 
70 G$(4)="{ 10 SPAZI}*** POKER 
{ 2 SPAZI}256 ***{ 2 SPAZI}" 
80 G$(5)="{ 9 SPAZI}GIOCHI CONTR 
O IL C64{ 3 SPAZI}" 

100 G$(9)="{ 10 SPAZI}VINCI SE C 
ONSEGUI:" : G$(10)=" 

{ 5 SPAZI}SCALA REALE MASSIM 
A-$ 2 50" 

120 G$(11)="{ 11 SPAZI}SCALA REA 
LE-$ 100":G$(12)=" 

{ 15 SPAZI}POKER-$ 20" 

140 G$(14)="{ 16 SPAZI}FULL-$ 8 
{ 7 SPAZI} " : G$ ( 1 3) = " 

{ 14 SPAZI}COLORE-$10" 

160 G$(15)="{ 15 SPAZI}SCALA-$ 5 
":G$(16)="{ 16 SPAZI}TRIS-$ 
4" 

180 G$(17)="{ 10 SPAZI}DOPPIA CO 
PPIA-$ 3" : G$(18)=" 

{ 14 SPAZI }COPPIA-$ 1"'. 

200 G$(20)="{ 10 SPAZI}OGHI MANO 
COSTA $ 1.”:N$="{HOME} 

{ 26 GIU’ }" 

210 B$=LEFT$(N$,20):JW$=LEFT$(N$ 
,10) 

22 0 A=4:MM=60:G=10 :PRINT"{BLK}" : 
Di=0:POKECL,MM:POKECL+1 ,MM:P 
OKECL+4,17 

230 FORB = lTO40:PRINTLEFT$(N$,A) R 
IGHT$(G$(A),B) 

234 IFLEFT$(RIGHTS(G$(A),B),2)=" 
{ 2 SPAZI}"THEN240 

235 POKEVL,9 :POKECL+ 5,17:POKECL+ 
6,129:POKEVL,0 


combinazione piu alta, cambiando, alter¬ 
nando le carte (non si possono cambiare più 
di tre (3) carte per mano). Il computer quindi 
esaminata la giocata e annuncia l'eventuale 
vincita. 

Il totale delle vincite è visualizzata nella par¬ 
te superiore dello schermo. 


240 NEXT:FOR 1=1TOG:NEXT:FORB=lT 
ODI :NEXT: I FA= 2OTHENPOKECL+4, 

16 :GOT0310 

250 IFA=18THENA= 20 :MM=90:PRINT" 
{RED}":G=30:Dl=300:GOTO 300 
260 IFA>8ANDA<18THENA=A+1 
270 IFA=7THENA=9:PRINT"{BLU}":G= 
40 : Di=200 

280 IFA= 5THENGOSUB5000 : FORA=1T02 
00 :NEXT:A = 9:PRINT"{BLU}":G = 4 
0 : Di=200 

290 IFA= 4THENA= 5 :PRINT"{RED}": MM 
= 90 

300 GOTO230 

310 G$(4)="":G$(5)="":G$(7)=""-G 
$(20)="" 

320 AK$ = "{ 2 GIU' }{GRN}{ 2 SIN} 

{RVS}{ 2 SPAZI}{GIU'}{SIN} 

{RVS}{ 2 SPAZI}{GIU'}{SIN} 

{RVS}{ 2 SPAZI}":D$=B$+" 

{ 40 SPAZI}" 

340 E$ =LEFT$(N$ , 1 6) :F$ = E$ + " 

{ 21 SPAZI}":X=RND(-TI) 

350 HD=HD+1:GOSUB4030 :POKE53281 , 

1 :PRINTCHR$(147):GOSUB 5100 

360 PRINTLEFT$(N$,5)SPC(2)"{BLU} 
SCHIACCIA {RVS}T{OFF} PER TE 
NERE LE CARTE" 

370 PRINTLEFT$(N$,7)SPC(2)"SCHIA 
CCIA{ 2 SPAZI}{SIN}{RVS}C 
{OFF} PER CAMBIARE LE CARTE” 
:GOSUB50 50 

500 X=INT(RND(1)*13)+1 :Y=INT(RND 
(1)*4)+1:IFJ%(X,Y)=1THEN500 
510 J%(X,Y)=1 :K=K+1 
520 E=32:IFY=1THENG=88:H=0 
530 IFY= 2THENG=83:H=2 
540 IFY=3THENG=65:H=0 
550 IFY=4THENG=90:H=2 
560 IFX=10THENE=4 8 :F = 49 :GOTO620 
570 IFX>1ANDX<10THENF=X+48 
580 IFX=11THENF=10 
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590 IFX=12THENF=17 
600 IFX=13THENF=11 
610 IFX=1THENX=14 : F = 1 
620 IFK>5THENRETURN 
630 IFX=1THENX=14:F=1 
640 IFK=1THENCD=WK+3 97 : L= 1 :PT(1) 
=X:ST(1)=G 

650 IFK=2THENCD=WK+405 :L=9:PT(2) 
=X:ST(2)=G 

660 IFK= 3THENCD=WK+413 :L=17 :PT(3 
)=X:ST(3)=G 

670 IFK=4THENCD=WK+421:L=25:PT(4 
)=X:ST(4)=G 
675 POKE CL+1,15 

680 IFK= 5THENCD=WK+429:L=33:PT(5 
)=X:ST(5)=G:GOSUB700:POKEVL, 

15:Z = 250: GOTO810 
690 GOSUB7 00 : GOTO500 

700 PRINT"{HOME}{ 10 GIU'}"; 

701 PRINT TAB(L)"{BLK}[<A> ] 

{ 4 *} [<S>]" 

703 PRINTTAB(L)"-{ 4 SPAZI}-" 

704 PRINTTAB (L) 4 SPAZI}-" 

70 5 PRINTTAB (L) ’M 4 SPAZll-/' 
706 PRINTTAB(L)"[<Z>]{ 4 ^}[<X>] 

II 

740 LF=1 :WB = 55 

750 E1 =E:Fl=F:G1=G:Hi=H:E=160:F= 
1 60:G=160:H = 0 

760 POKE VL,8:LF=LF+1:POKECL+l,W 
B:POKECL,WB:POKECL+4,1 7 
770 POKE CD + 4 6 ,E :POKE CD + 46+CL,H 
:POKECD + 4 5,F:POKECD+4 5+CL, H 
775 POKE CD+ 86 ,G:POKECD+ 86 +CL,H: 
POKECD+87,G:POKE CD+87+CL,H 

777 IF F<>4 9 THENPOKE CD + 128,F:P 
OKECD+CL+12 8 ,H 

778 IF F<> 49THEN POKE CD+127,E: 
POKE CD+CL+127,H:GOTO780 

779 f= 4 9 :POKE CD+127,F:POKECD + 12 
7+CL,H:POKE CD+128,48:POKE C 
D+l28+CL,H 

780 FORB = lTOl00:NEXT:POKECL+4,1 6 
:IFLF=0THENRETURN 

790 IFLF=4THENLF=0:E=E1:G=G1:H=H 
1 :F = Fl :GOTO770 
800 H=H+8:WB=WB+5:GOTO760 
810 POKEl98,0:PRINTD$:PRINTB$;:P 
RINTTAB(13)CHR$(28)"TIENI O 
CAMBI ?":CT=0 

820 PRINTE$SPC(4)CHR$(30)"?":POK 
ECL+1,Z:POKECL,Z 

830 FORA=lTOl00:NEXT:PRINTE$SPC( 
4 )» i' : poKECL+4,1 6 : FORA=l TO50 
: NEXT 

840 GETH$: IFH$ = ""THEN82 0 
850 IFH$ = "C"ORH$ = "T”THEN870 
860 GOTO820 


870 IFH$="T"THEN900 

880 IFH$="C"THENCT=CT+1:GOSUB50U 
:PT (1)=X :ST (1) =G : E(1)=E:F(1) 

=F:G(1)=G:H(1)=H 
890 PRINTJWSSPC(4)AK$ 

900 PRINTE$SPC(12)"?":FORA=lTOl0 
0 :NEXT:PRINTE$SPC(12)" ":FOR 
A=1TO50:NEXT 

910 GETI$:IFI$=""THEN900 
920 IFI$="C"ORI$="T"THEN940 
930 GOTO900 
940 IFI$="T"THEN970 
950 CT=CT+1:GOSUB500:PT(2)=X:ST( 
2)=G:E(2)=E:F(2)=F:G(2)=G:H( 
2) =H 

960 PRINTJW$SPC(12)AK$ 

970 PRINTE$SPC(20)"?":FORA=lTOl0 
0:NEXT:PRINTE$SPC(20)" ":FOR 
A=1TO50:NEXT 

980 GETJ$:IFJ$=""THEN970 

990 IFJ$="C"ORJ$="T"THENl020 

1000 GOTO970 

1020 IFJ$="T"THENl050 

1030 CT=CT+1:GOSUB500:PT(3)=X:ST 

(3) =G:E(3) =E:F(3) =F:G(3)=G: 
H(3)=H 

1 04 0 PRINTJW$SPC(20) AK$:FORA=lTO 
1000:NEXT:IFCT=3THENl500 
1 050 PRINTESSPC(28)"?" :FORA=1TOl 
0*0 : NEXT : PRINTE$SPC (28) " ":F 
ORA=1TO 5 0 :NEXT 
1 060 GETK$:IFK$ = ""THENi 0 50 
1070 IFK$="T"ORK$="C”THENl090 

1080 GOTOl050 

1090 IFK$="T"THENl120 

1100 CT=CT+1:GOSUB500:PT(4)=X:ST 

(4) =G:E(4)=E:F(4)=F:G(4)=G: 
H(4)=H 

1110 PRINTJW$SPC(28)AK$:IFCT=3TH 
ENI 500 

1120 PRINTE$SPC(36)"?":FORA= 1 TOl 
00:NEXT:PRINTE$SPC(36)" ":F 
ORA=lTO50:NEXT 
1130 GETL$:IFL$ = ""THENl 1 20 
1140 IFL$ = "C"ORL$ = "T"THENl160 
1150 GOTOl120 
1160 IFL$="T"THENl500 
1170 CT=CT+1:GOSUB500:CD=WK+215: 
PT(5)=X:ST(5)=G:E(5) =E:F(5) 
=F:G(5)=G:H(5)=H 
1180 PRINTJW$SPC(36)AK$ 

1500 FORTV=lT05:IFTV>5THENl560 
1510 IFE(TV)>0THEN1530 
1520 NEXTTV:IFTV=5THEN1560 
1530 E=E(TV):F=F(TV):G=G(TV):H=H 
(TV) 

1 540 CD = WK+389+TV* 8 :IFCD>WK+429T 
HENl560 

1 550 GOSUB74 0 :IFTV< 5THENNEXTTV 
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1 560 FORA=1T05: E ( A)*0 :P( A)*0 :G(A 
)*0:H(A)=0:NEXTA 

2000 PRINTDSFS: FORA*1TO5:POKE(10 
15+A),PT<A):NEXT 

2010 FORA*1T05:POKE(1015*A),PT(A 
)SNEXT 

2020 SYS908:FORA*lTO5:PT(A) *PEEK 
((1015+A))sNEXT 

2110 YY*0:1FPT(5)-PT(4)*1THENIPP 
T(4)-PT(3)*1THENYY*1 
2115 IFYY*1THENIFPT(3)-PT(2) *1TH 
ENIPPTJ2)-PT(1)*1THENSS*1 
2120 1FST(1)*ST(2)THENIPST(2) *ST 
(3)THENIPST(3)*ST(4)THENIPS 
T(4)*ST(5)THEHPL*1 
2130 SYS960:XE*PEEK(1011):ZQ=PEE 
K < 101 2) 

2160 IPPT(1)*PT(2)THENIPPT(1)*PT 
(3)THENIFPT(1)*PT(4)THENPR* 

2170 IPPT(5)*PT(4)THENIPPT(5) *PT 
|THEN1PPTI5)*PT(2)THENPR* 

2180 IPSS-lTHENIFPL-lTHENIPPT(S) 
-14THENSC-SC+249:ZS-GS(10)s 
GOTO 30 30 

2190 IPSS*1THENI PPL*1THENSC-SC+9 
9 :ZS-GS(11)j GOTO3030 
2200 1PPR*1THENSC-SC+19 :ZS-GS( 1 2 
):GOTO3030 

2210 IPZ0*4THENIPPR<>1THENSC-SC+ 
7 :ZS-GS(14):GOTO3030 
2220 IFFL-1THENSC-SC+ 9:ZS-G$(13 
):OOTO3030 

2230 IFSS-lTHENSC-SC+4:ZS-GS(15) 

: GOTO 3030 

2240 IPZQ» 3THENSC-SC+ 3 :Z$*GS(16) 

: GOTO 3030 

2250 IPZQ»2THENSC-SC+2:ZS*GS(17) 

: GOTO 3030 

2260 IPZQ«1ANDXE>*11THENZS«GS(18 
): GOTO 30 30 

2270 SC-SC-1:ZS»"( 13 SPAZIjMANO 
PERDENTE!( 3 SPAZI}":QP-1 
3030 GOSUB5050:PRINTCHRS(156): IP 
QP=1THENPRINTCHRS(144) 

3040 FORA»1T05:PRINTBS;ZS:UA=20: 

FORB-135T0243STEP12 
3050 IFQP»1THENPORB»243TOl 35STEP 
- 12 : DA» 3 2 

3060 POKEC1-* 4 , 1 7 :POKE0L» I ,B:POKE 
CL, B: FORO»1TOUA:NEXT:NEXT 
3070 POKECL+4,16 :PRINTDS: PORO-1T 
Ol00 :NEXT:NEXT 


3080 FORX*1TOl3:FORY*1T04:J%(X,Y 
)*0 :NEXT:NEXT:K=0 
3090 FORA*1TOS:PT(A)*0:ST(A)=0:N 
EXT : SS»0 :FL=0:ZQ-0:FR=0:K=0 
:XE*0:QP*0 

3100 FORA*1TOl500:NEXT:GOT0350 

4030 POKE53281,1 :PRINT"{CLR}"LEF 
T$(N$,11)SpCi)6)"{BLX}{RVS} 
MANO";HD . , • 

4040 D=231:FORA*lTO3:FORB*0TOl5: 
PORE53280,B:POKECL+1,D:POKE 
CL+21,D 

4050 FORO* 1T040:NEXT:NEXT:NEXT:P 
OKE53280,12:RETURN 
5000 FORA*lTO3:FORB»0 TO 15 :POK 
E5 3 2 80,B:FORC* 1 TOSO :NEXT: NE 
XT:NEXT:POKE53280,14 
5010 RETURN 

5050 PRINTLETTS(NS,3)SPC(13)CHRS 
(28)CHR$(18)"VINCITE:"CHRS( 
14«)"S";SCj"{ 2 SPAZI}" 

5060 RETURN 

5100 Z-1: POR T-1 024 TO 1 063:POKE 
T+54272,T-1023:POKET,160:NE 
XT T 

5110 POR T-1024 TO 2024-40 STEP 
40:Z-Z+I:POKET+ 542 72,Z:POKE 
T, 160 

5120 POKET+ 54 31 1 ,Z:POKET+ 39, 160: 
NEXTT 

5130 FORT-1 98 4 TO 2023 :POKET+542 
72,T-1984:POKET,160:NEXT T 
5140 RETURN 

6040 DATAI 62,4,142,246,3,174,246 
,3,160,0,140,247,3,185,249, 
3,217,248,3,176 
6045 DATA 16,72,185,248 
6050 DATA3,153,249,3,104,153,248 
.3,169,1,141,247,3,200,202, 
208,228,173 

6055 DATA 247,3,240,5,206,246 
6060 DATA3,208,210,96 
6070 DATAI 62,0,142,245,3,172,245 
.3,185,248,3,2)7,249,3,208, 
4,232,141,243 
6075 DATA3,200,192,4,208 
6080 DATA242,238,245,3,173,245,3 
,201,4,208,226.142,244,3.96 

6090 DATA836,29,839,31,849,149,8 
52.151,864.30,867,30,870,31 
,873.31,883,150,886 
6100 DATA 150,889,151,892,151 
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DOtS 


DOTS è un programma educativo creato per 
insegnare ai bambini in età prescolare a di¬ 
stinguere numeri e lettere. Essi potranno far 
comparire un disegno, scelto tra quattro pos¬ 
sibili, all'interno di una matrice in cui ogni 
casellina è indicata dalle sue coordinate (nu¬ 
meri per le righe e lettere per le colonne). 


100 REM INTESTAZIONE 

110 PRINT"{CLR}[<7>]":POKE53280 , 

0:POKE53281,0 

120 PRINTSPC ( 10)"{ 3 Q} 

{ 3 SPAZI}{ 2 Q} { 2 SPAZI} 

{ 5 Q}{ 2 SPAZI}{ 2 Q}" 

130 PRINTSPC(10)"Q{ 2 SPAZl}Q 
{SPAZI}Q{ 2 SPAZI}Q 
{ 2 SPAZI}Q{ 2 SPAZI}{SPAZI} 
Q{ 2 SPAZlTQ" 

140 PRINTSPC(10)"Q {SPAZI}Q 

{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 
{SPAZI}Q{SPAZI} { 2 SPAZI}Q 

II 

150 PRINTSPC(10)"Q {SPAZl}Q 

{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 
{SPAZI}Q{SPAZI}{ 2 SPAZI} 

{ 2 SPAZI}Q" 

ì60 PRINTSPC(10)"Q {SPAZI}Q 

{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 

{SPAZI}Q{SPAZI}{ 2 SPAZI}Q 
{ 2 SPAZI}Q" 

170 PRINTSPC(10)"{ 3 Q}{SPAZI} 
{SPAZI}{ 2 Q}{SPAZI} 

{ 2 SPAZI}Q{SPAZI} 

{ 2 SPAZiJlSPAZl}{ 2 Q}" 

180 L=lll4:C=55386:CD=54272:WV=5 
4276 

190 A$ = "Z":POKE54296,15:POKE5427 
7,22:POKE54278/165:GOSUB840 

200 : 

210 REM ISTRUZIONI 

220 PRINTSPC(14)"{ 2 GIU'}{WHT}l 
STRUZIONI:" 

230 PRINTSPC( 8 )"{GIU'}QUANDO APP 
ARE LO SCHEMA," 

235 PRINTSPC(9)"CERCA IL PUNTO T 
ONDO." 

240 PRINTSPC(9)"{GIU*}BATTI IL N 
UMERO DELLA":PRINTSPC(11)"RI 
GA E 'RETURN'." 

250 PRINTSPC(9)"{GIU'}BATTI LA L 
ETTERA DELLA" 


I disegni vengono tracciati congiungendo per 
mezzo di linee determinate caselle della ma¬ 
trice, nelle quali appaiono di volta in volta dei 
pallini. Ogni pallino aggiunge una linea al di¬ 
segno soltanto se il bambino batte sulla ta¬ 
stiera le coordinate esatte, e via di seguito 
finché la figura non è completa. 


260 PRINTSPC(10)"COLONNA E 'RETU 
RN 1 • ** 

270 PRINTSPC(5)"{ 2 GIU'}{RVS}PR 
EMI UN TASTO PER COMINCIARE. 

":POKEl98,0 

280 GETS$:IFS$ = ""THEN280 
290 : 

300 REM SCELTA DEL DISEGNO 
310 POKE532 81 , 6 :PRINT"{CLR}"SPC ( 
8 )"{ 5 GIU'}[<3>]CHE COSA VU 
OI DISEGNARE?" 

320 PRINTSPC( 8 )"[<7>]{ 3 GIU'}A 
- FARFALLA (22 PUNTI)" 

330 PRINTSPC(10) "{GIU'}B - FUNGO 
(12 PUNTI)”:PRINTSPC(9)" 
{GIU'}C - CAVALLO (20 PUNTI) 

340 PRINTSPC(1 0)"{GIU 1 }D - CUORE 
(10 PUNTI)POKEl98,0 
350 GETA$:IFA$ <"A"ORA$ >"D"THEN3 5 
0 

360 : 

370 REM DISEGNO LAVAGNA 

380 PRINT"{CLR} [<3>]"SPC (11)" 

{ 2 GIU'}ABCDEFGHIJKLMNOPQR 
{HOME}" 

390 FORRH=lTOl 8 :FORT=lTOl 8 :POKEL 
+T+RH* 40,79 :POKEC+T+RH* 40,14 
:NEXT:NEXT 

400 PRINTSPC(11)"[< 3>] 

{ 20 GIU'}ABCDEFGHIJKLMNOPQR 

II 

410 PRINT"{HOME}{ 3 GIU'}[<7>]"; 

420 FORI=lTOl 8 :PRINTSPC( 8 )RIGHTS 
(STR$(I),2)SPC(19)"[<G>]"RIG 
HT$(STR$(I),2):NEXT 
430 : 

440 REM CARICAMENTO DATI 
450 RESTORE 

460 READB$:IFB$OA$THEN460 
470 ONASC(A$)-64GOTO650,690,730, 
770 

480 FORT=lTO500:NEXT 
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490 READA,B, E$,S:IFA=0THEN8 30 

500 POKEA,81:POKEA+CD,B 

510 PRINT"{HOME}{ 39 SPAZI}" 

520 PRINT"[<7>]{HOME} (►) NUMERO 
:GOSUB930:N$=IN$ 

530 PRINT"{HOME}"SPC(20)"(t) LET 
TERA";:GOSUB9 30 :L$ = IN$ 

540 IFE$=N$+L$THEN610 
550 PRINT"{HOME}{BLK} 

{ 16 SPAZI}RIPROVA 
{ 11 SPAZI}" 

560 POKECD,48 :POKECD+1 ,11:POKEWV 
,33:POKEWV,32 

570 FORT = lT0400:NEXT:POKECD,195: 
POKECD+1,16:POKEWV,33:POKEWV 
i 32 

580 FORT=1T0400 :NEXT 

590 FORT=lTOl200:NEXT:GOT0510 

600 : 

610 FORT=lTO700 :NEXT:FORT=l TOl 8 : 
POKESQ,160:POKESQ+CD,B:IFSQ= 
ATHEN630 

620 SQ=SQ+S:NEXT 
630 POKEWV,17:FORZ=9T026:POKECD+ 
1 ,Z:POKECD,0 :NEXT:POKEWV, 1 6 : 
GOTO480 
640 : 

650 POKE1 242,77:POKE1 242+CD,0 : PO 
KEl244,78:POKEl244+CD,0 
660 POKEl283,160:POKEl283+CD,5 
670 SQ=1 283 :GOT0480 
680 : 

690 POKEl563,160:POKEl563+CD,4:P 
OKEl564,160:POKEl564+CD,4 
700 POKEl717,160:POKEl717+CD,5 
710 SQ=1717:GOTO480 
720 : 

730 POKEl436,74:POKEl436+CD,0:PO 
KEl437,75:POKEl437+CD,0 
740 POKEl397,85:POKEl397+CD,0 
750 POKEl208,160:POKE1208+CD,2:S 
Q=1208:GOTO480 
760 : 

770 PRINT"{HOME}{ 7 GIU'}" 

780 PRINTSPC(17)"{GRN}ELENA" 

790 PRINTSPC(17) "{ 2 GIU'}[<7>]L 
AURA" 

800 PRINTSPC(17)"{ 2 GIU'}[<3>]S 
ILVIA" 

810 POKEl283,160:POKEl283+CD,2:S 
Q=1283:GOTO480 
820 : 

830 PRINT"{HOME}{ 10 SPAZI}BUON 
LAVORO! ANCORA?{ 4 SPAZI}" 
840 READB$:IFB$<>"Z"THEN840 
850 READPL,PH,D: IFPL=-1ANDA$ = "Z" 
THENPOKEWV,0 : RETURN 
860 IFPL=-1THENPOKEWV,0:GOTO890 


870 POKECD,PL:POKECD+1 ,PH:POKEWV 
,33:FORT=lTOD*75:NEXT:POKEWV 
,32 

880 GOTO850 

890 GETY$:IFY$<>"S"ANDY$<>"N"THE 
N890 

900 IFY$="S"THEN310 
91 0 : 

920 PRINT"{CLR}";:END 
930 PRINT"? ";:IN$="" 

940 PRINT"{RVS} {OFF}{SIN}"; 

950 GETA$:IFA$=""THEN940 
960 ZL=LEN(IN$):IFA$=CHR$(20)AND 
ZLTHENPRINTAS; :IN$=LEFT$(IN$ 
,ZL-1) 

970 IFA$ =CHR$(13)ANDZLTHENPRINT" 
": RETURN 

980 IF(A$<"0"ORA$>"R")OR(A$ >"9"A 
NDA$ <"A")ORLEN(IN$)=2THEN950 
990 PRINTA$; :IN$ = IN$+A$: GOTO94 0 
1 000 : 

1010 DATAA,1403,5,71,40,1247,2,3 

M, - 3 9 

1 020 DATAI 249,2,30,1,1331 ,2,5Q,4 
1,1491,2,90,40,1569,2,110,3 
9,1651,7,13Q,41 

1030 DATA1731,7,150,40,1770,7,16 
P,39,1767,7,16M,-1,1603,7,1 
21,-41,1759,7,16E,39 
1040 DATAI756,7,16B,-1,1715,7,15 
A,-41,1635,7,13A,-40,1557,7 
, 11C,-39 

1 050 DATAI 475,2,9A,-41 
1 060 DATAI 315,2,5A,-40,1 237,2,3C 
,-39,1239,2,3E,1,1403,2,71, 
41 , 1 683,5,1 41,40 
1070 DATA0,0,0,0 
1 080 : 

1090 DATAB,1722,5,15H,1,1562,4,1 
IH,-40,1 559,4,HE,-1,1519,4 
,10E,- 4 0 

1100 DATAI 441,4,8G,-39 
1110 DATAI 44 6,4,8L,1 ,1 528,4,1 0N, 
41,1568,4,llN,40,1565,4,llK 
,-l ,1725,4,1 5K,40 
1120 DATAI 730,5,1 5P, 1 , 1 722,5,1 5H 
,-l ,0,0,0,0 
1130: 

1140 DATAC,1364,2,6J,39,1359,2,6 
E,-1 ,1398,2,7D,39,1598,2,12 
D,40,1680,2,14F,41 
1150 DATAI 681,2,14G,1,1641,2,13G 
,-40,1600,2,12F,-41,1560,2, 
11F,-40,1564,2,11J,1 
1160 DATA1687,2,14M,41,1688,2,14 

N, 1,1608,2,12N,-40,1567,2,1 
1 M,- 41 ,1 407,2,7M,-40 
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1170 DATAI 329,2,50,-39,1331 » 0,5Q 
,1,1291,0,4Q,-40,1290,0,4P, 
-1,1208,2,2N,-41 
1180 DATAO,0,0,0 
1190 : 

1200 DATAD,1160,2,1F,-41,1157,2, 
1C,-1,1235,2,3A,39,1475,2,9 
A,40,1803,2,171,41 
1210 DATA1491,2,9Q,-39,1251,2,3Q 
,-40,1169,2,10,-41,1166,2,1 
L,-1,1283,2,41,39 


1220 DATAO,0,0,0 

1240 DATAZ,195,16,3,31,21,1,30,2 

5,2,135,33,2 

1250 DATA30,25,2,31,21,2,195, , 

2,31 ,21 ,2,30,25,3,31 ,21 ,1 


1 260 DATAI 95,16,2 
1 270 DATAI 43,1 2,2,1 95,1 6,1 

1280 DATA0,0,3,195,16,1,-1 f 0,0 
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Serpentone 


Ir, ' 'Serpentone ' ' il vostro obiettivo è quello di 
muovere il serpente fuori da un giardino infe¬ 
stato da funghi velenosi. 0 saranno appros¬ 
simativamente 150 di questi funghi sullo 
schermo dopo che avrete scelto il livello di 
difficoltà del gioco. Il serpente apparirà 
nell’angolo superiore sinistro dello schermo 
dopo che saranno stati posizionati tutti i fun¬ 
ghi velenosi. Dovrete cercare di far fuggire il 
serpente (che man mano si allunga con il 
movimento) attraverso la porta di colore blu 
che compare nel'angolo inferiore destro dello 
schermo, rimanendo nei limiti di tempo fissa¬ 
ti all'inizio del gioco attraverso la scelta del li¬ 
vello di difficolta. 

Il serpente dovrà raggiungere l'uscita senza 
entrare in contatto con alcuno dei funghi ve¬ 
lenosi. senza cozzare contro se stesso e sen¬ 
za eccedere dal limite di tempo precedente¬ 


5 GOTO!00 

10 POKE54296, 15 :POKE54277, 17 
:POKE5427 8 , 17 

15 POKE 54276, 17 :POKE 54273, 2 
8 :POKE54272 , 49 
2 0 POKE54 2 76,0 :POKE54273,0 :POKE5 
4272,0 
30 RETURN 
100 SO=0:SR=3 
110 GOSUB30000:GOSUB29000 
120 PRINT"{CLR}" 

130 GOSUB28000 :GOSUB8000 :GOSUB90 
00 :GOSUB28000 
140 TI$ = "000000" 

150 CL=INT(RND(1)*7)+1 :IFCL=50RC 
L= 3THEN150 

160 IFTI$ =L$THENGOSUB7000:GOTOl3 
0 

170 IFDH=OTHENPOKEB,HC 
180 POKEB,HC:POKECO,CL 
190 K=PEEK(197) 

200 IFK=34THENDR=-1:GOTO250:REM 
LEFT 

210 IFK=37THENDR=1:GOTO250:REM R 
IGHT 

220 IFK= 33THENDR=-40 :G0T0250 : REM 
UP 

230 IFK= 36THENDR = 4 0 :G0T02 50 : REM 
DOWN 


mente selezionato; se riuscirete a fargli rag¬ 
giungere l'uscita sano e salvo, vi verrà asse¬ 
gnato un bonus in aggiunta al punteggio ot¬ 
tenuto. Come detto, il serpente cresce in lun¬ 
ghezza man mano che si muove sullo scher¬ 
mo: ogni sezione del corpo (pallino colorato) 
in più vi frutterà un punto. 

Se andrete a finire contro un fungo velenoso 
oppure contro il vostro stesso corpo, appari¬ 
rà nel centro dello schermo una croce, e sarà 
visualizzato il vostro punteggio insieme al nu¬ 
mero di serpenti che avete ancora disponibi¬ 
li. 

Potete fermare il movimento del serpente 
quando volete, semplicemente togliendo il di¬ 
to dal tasto che state premendo, ma ricorda¬ 
tevi che ciò vi costa una perdita del tempo 
disponibile... 


240 GOTOl60 

250 POKEB,BC:B=B+DR:CO=CO+DR:SO= 
SO+1 

260 IFPEEK(B)=88THENDH=0:GOTO950 
0 

270 IFPEEK(B)=160THENGOSUB5000:G 
OTOl20 

280 IFPEEK(B)=81THENGOTO9500 

300 IFB<10240RB>2023THENB=B-DR:C 
0=C0-DR 

310 GOSUBl0:GOTOl50 

4000 REM ISTRUZIONI 

4010 PRINT"{CLR}{GIU'}{BLU}L'OBB 
IETTIVO E'GUIDARE IL SERPEN 
TE FUORI DALLO SCHERMO." 

4020 PRINT"{GIU’}{GRN}CERCA DI E 
VITARE I FUNGHI VELENOSI( 

{BLK}X{CYN})." 

4030 PRINT"{ 3 GIU'}{RED}TASTI 

{ 3 SPAZI)PRINT"{PUR} J= 
{RVS}SIN.":PRINT"{GRN} K= 
{RVS}DES." 

4040 PRINT"{CYN} 1={RVS}SU":PRIN 
T"{RED} M={RVS}GIU'" 

4050 PRINT"{GIU'}{RED}SCALA VALO 
RI :" 
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4060 PRINT"{BLU}SEGMENTO CORPO 
{RVS}1{OFF} PUNTO" 

4070 PRINT"{ 2 GIU'}{RED}RICEVER 
AI UN BONUS ALL'USCITA DAL 
QUADRO" 

4080 PRINT"{ 3 GIU'}{PUR}{RVS} 

{ 8 DES}PREMI UN TASTO PER 
INIZIARE" 

4090 GETA$:IFA$=""THEN4090 
4100 RETURN 

5000 VB = 0:POKE53280,3 :POKE53281 , 

5010 IFS=1THENVB=20 
5020 IFS=2THENVB=30 
5030 IFS = 3THENVB = 4 0 
5035 IFS=4THENVB=50 
5040 BN=FNSC(VB) 

5050 PRINT"{CLR}{ 6 GIU' } 

{ 8 DES}{BLU}...SEI USCITO! 

^ Il 

5060 SO=SO+BN 

5070 PRINT"{ 2 GIU'}{ 15 DES} 

{RED}{RVS}BONUS{OFF}:{RVS} 
{BLU}"BN"{OFF}" 

5080 PRINT"{ 2 GIU'}{ 15 DES} 

{RVS}{PUR}PUNTI{OFF}:{RVS} 

{GRN}"SO 

5090 PRINT" { 2 GIU'H 8 DES} 

{BLU}"SR" {RED}SERPENTI RIM 
ASTI" 

5100 POKE54296, 1 5 :POKE54277, 8 
3 :POKE54278, 50 

5102 FORHI=33TO 57STEP2:LO=INT(R 
ND (0) *50) +1 80 

5103 POKE 54276,17 :FORJ=1TO60: NE 
XTJ:POKE 54273,HI:POKE54272 
,LO:NEXT 

5106 FORT=1TO 200 :NEXT:POKE5427 
6,0:POKE54273,0:POKE54272,0 
5120 DH=2:RETURN 
6000 PRINT"{CLR}{ 10 GIU'} 

{ 12 DES}{BLU}{ 13 V}" 

6003 PRINT"{ 12 DES}{BLUTV{RVS} 
{CYN}{ 11 DES}{OFF}{BLU}V" 
6005 PRINT"{ 12 DES}{ 13 V}" 

6010 PRINT"{HOME}{ 11 GIU'} 

{ 13 DES}{RVS}{BLK} GAME" 

6020 POKE54296, 1 5 :POKE54277, 5 
3 :POKE54278, 69 

6021 POKE 54276, 33 :POKE 54273, 

3 :POKE54272, 244 

6022 FORT=1TO 900 :NEXT:POKE5427 
6,0:POKE54273,0:POKE54272,0 


6027 

6028 

6040 

6050 

6060 

6070 

6080 

7000 

701 0 


7020 


7030 

7040 

7042 

7043 

7045 

7050 

7060 

7070 

8000 


8005 


POKE 54276, 33 :POKE 54273 
2 :POKE54272, 163 

FORT=lTO 900 :NEXT:POKE542 
6,0 :POKE54 273, 0 :POKE54 2 72, 


7 

0 


PRINT"{ 3 GIU'}{ 12 DES} 
{REDjGIOCHI ANCORA?" 

GETP$: IFP$ = ""THEN60 50 
IFP$="S"THENSO=0:SR-3:LK-0: 


GOTOl20 

IFP$<>"N"THEN60 50 
PRINT" { 3 GIU'H 17 
O! {HOME}": END 
SR=SR-1 :POKE532 80,3 


DES}CIA 
:POKE532 


81 1 

PRINT"{CLR}{ 6 GIU'} {RED}W 


PRINTSPC(14)"{ 4 GIU'}{GRN} 

Z{PUR}PUNTl{OFF}:{RVS}{GRN} 
"SO 

PRINTSPC(9)"{ 5 GIU'HRED}" 
SR"{BLU}SERPENTI RIMASTI" 
POKE54 2 96, 1 0 :POKE54277, 3 
1 :POKE54278, 17 

POKE 54276, 33 :POKE 54273, 
5 :POKE54 2 72, 71 
FORV0 = l 5T05STEP-.5 :POKE5429 
6 ,V0:FORT= 1 TOl 00 :NEXT:NEXT 
POKE54276,0:POKE54273,0:POK 
E54272,0:POKE54296,0 
FORT =1TO 2 000:NEXT 
IFSR=0THEN6000 
RETURN 

POKE53280,4 :POKE53281 , 1 :PRI 
NT"{CLR}{ 3 GIU'}"SPC (42)" 
{RED}SCEGLI IL LIVELLO:" 
PRINT"{ 2 SPAZI}[< 17 T>]" 


8010 PRINTSPC(51 )"{GIU' }{BLU}LIV 
ELLO 1=60 SECONDI" 

8020 PRINTSPC(51 ) "{RED}LIVELLO 2 
=45 SECONDI" 

8030 PRINTSPC(51 )"{GRN}LIVELLO 3 
=30 SECONDI" 

8040 PRINTSPC(51)"{PUR}LIVELLO 4 
=15 SECONDI" 

8045 PRINT" { 3 GIU'H 7 DES} 

{YEL}L{BLU}I{GRN}V{PUR}E 
{CYN}L{ BLU}L[<1>]O {RED}?" 

8050 GETS$:IFS$ = ""THEN8050 

8060 S=VAL(S$) 

80 70 IFS = 1THENL$ = "0001 00":RETURN 


6025 POKE3 6 874,1 50 :PRINT"{HOME} 

{ 11 GIU'}{ 18 DES}{RVS} 
{BLK} OVER " 

6026 POKE54296, 15 :POKE54277, 5 
3 :POKE54278, 69 


8080 IFS = 2THENL$ = "000045":RETURN 
8090 IFS=3THENL$="000030":RETURN 
8100 IFS = 4THENL$ = "00001 5": RETURN 
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8110 GOTO80 50 

9000 POKE53280,4:POKE53281,8:PRI 
NT"{CLR}" 

9010 FORF=lTOl50:D=INT(RND( 1 ) *96 
6)+1058 

9020 POKED,88:POKED+54272,1:FORJ 
= 1 TO20:NEXTJ:POKED+54272,0 
:NEXTF 

9030 POKE2023,1 60:POKE2022,1 60 :P 
OKE1983,160:POKEl982,160 
9040 POKE56295,6:POKE56294,6:POK 
E56255,6:POKE56254,6 
9050 POKE1943,32:POKE2021 32 
9060 RETURN 

9500 POKE54296, 15 :POKE54277, 5 
3 :POKE54278, 69 
9505 POKE 54276, 33 :POKE 54273, 
5 :POKE54272, 71 

9510 FORT=1TO 900 :NEXT:POKE5427 
6,0:POKE54273,0:POKE54272,0 

9515 POKE54296, 15 :POKE54277, 5 
3 :POKE54278, 69 
9520 POKE 54276, 33 :POKE 54273, 
3 :POKE54272, 244 
9525 FORT=1TO 900 :NEXT:POKE5427 
6,0:POKE54273,0 :POKE54272,0 

9530 POKE54296, 1 5 :POKE54277, 5 
3 :POKE54278, 69 
9533 POKE 54276, 33 :POKE 54273, 
2 :POKE54272, 163 
9536 FORT=lTO 900 :NEXT:POKE5427 
6,0:POKE54273,0 :POKE54272,0 

9540 SR=SR-1 

9550 PRINT"{HOME}{ 10 GIU'}"SPC( 
18)"{RVS}{WHT}{DES} {DES}"S 
PC(37)"RIP"SPC(37)"{DES} 
{DES}"SPC(37)"{DES} {DES} 
{OFF}" 

9560 FORT=1TO1 000 :NEXTT 


9570 POKE53280,3 :POKE53281,1 :PRI 
NT"{CLR}{ 5 GIU'}" 

9580 PRINTSPC(14)"{RED}PESSIMO ! ! 

n 

9590 PRINT"{ 4 GIU'}{ 14 DES} 

{RVS}{BLU}PUNTI{OFF}:{RVS} 
{PUR}"SO"{OFF}" 

9600 PRINTSPC (8) " { 4 GIU'HGRN}" 
SR"{BLU}SERPENTI RIMASTI" 
9610 FORT=lT02000 :NEXTT:IFSR=0TH 
EN6000 

9620 GOTO120 

1 0000 POKEV,15:POKES3,217:POKES3 
,217 :POKEV,0 :POKES 3,0 :RETU 
RN 

28000 BC=81:HC=87:B=1024:S3=3687 
6:CO=55296:LK=0: RETURN 
29000 DEFFNA(L)=INT(RND(1)*L)+10 
64 

2901 0 DEFFNSC(L) =INT(RND(1)*L)+5 
: RETURN 

30000 POKE53280,3 :POKE53281 ,1 
30010 PRINT"{CLR}{ 8 GIU’} 

{ 11 DES}{RVS}{RED} 

{ 17 SPAZI}" 

30020 PRINT"{ 11 DES}{RVS}{RED} 
{GRN}{ 15 SPAZI}{RED} " 
30030 PRINT"{ 11 DES}{RVS}{RED} 
{GRN}{ 2 SPAZI}SERPENTONE 
{ 3 SPAZI}{RED}{RVS} " 
30040 PRINT"{ 11 DES}{RVS}{RED} 
{GRN}{ 15 SPAZI}{RED} " 
30050 PRINT"{ 11 DES}{RVS}{RED} 

{ 17 SPAZI}" 

30070 PRINT"{ 2 GIU'}{ 12 DES} 
{BLU}ISTRUZIONI?" 

30080 GETI$:IFI$=""THEN30080 
30090 IFI$="S"THENGOSUB4000:GOTO 
301 20 

30100 IFI$="N"THEN30120 
30110 GOT030080 
30120 RETURN 
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Diamanti 


In questo simpatico e velocissimo gioco do¬ 
vrete cercare di raccogliere dei diamanti che 
si staccano dalla parete superiore di una mi¬ 
niera con le vostre palette, prima che cada¬ 
no in terra e vengano irrimediabilmente per¬ 


5 POKE 53280,12:POKE53281,0 
7 IF PEEK(49152)<>120THENGOSUB49 
000 

9 SYS 49745 

10 PRINT"{CLR}{WHT}"TAB(13)"DIAM 
OND DROP" 

20 PRINT" { 5 GIU'HYEL} 

{ 3 SPAZI}PRENDI I DIAMANTI P 
RIMA CHE ESSI" 

30 PRINT"{GIU’}{ 3 SPAZI}TOCCHIN 
O IL TERRENO. HAI CINQUE" 

40 PRINT"{GIU'}{ 3 SPAZI}POSSIBI 
LITA ' " 

45 PRINT"{ 2 GIU'}{WHT} 

{ 13 SPAZI}L - MUOVE SIN" 

46 PRINT"{ 13 SPAZI}; - MUOVE DE 
S {YEL}" 

50 PRINT"{ 5 GIU'}[< 6 >] 

{ 6 SPAZI}{RVS}PREMI UN TASTO 
PER INIZIARE" 

60 GETA$:IFA$=""THEN60 
65 GOSUB 1000 

70 PRINT"{CLR}PUNTI: 00000 

{ 4 SPAZI}CHANCHES: { 4 Q} " 

71 SPEED = 53241 

72 PADDLES=12*4096+4095 

73 FLAG=12*4096+4094 : POKE FLAG 
,0 

74 WIDTH = 12*4096+15*256+15*16+ 
11 

75 POKE PADDLES ,6 : POKE WIDTH,W 

: POKE SPEED,10-S 
78 ROW(6)=81:ROW(5)=81:ROW(4)=20 

7 :ROW(3)=207:ROW(2)=90:ROW(1) 
=90 

80 PRINT" {YEL}{RVS}";:F0RI=1T03 

8 :PRINT"Z";:NEXT:PRINT"{OFF} 

H • 

85 PRINT" {YEL}{RVS}";:F0RI=1T03 
8 :PRINT"Z";:NEXT:PRINT"{OFF} 

Il • 

90 PRINT" {CYN}{RVS}";:F0RI=1T03 
8 :PRINT"P";:NEXT:PRINT"{OFF} 

Il . 


duti. 

Le istruzioni per il gioco sono contenute nel 
programma, insieme alle opzioni di scelta 
della velocità di gioco e larghezza delle palet¬ 
te. Buon divertimento! 


95 PRINT" {CYN}{RVS}";: FORI = ITO3 
8 :PRINT"P";:NEXT:PRINT"{OFF} 

Il • 

100 PRINT" {OFF}[<7>]";:FORI=lTO 

38:PRINT"W";:NEXT:PRINT" "; 

102 PRINT" {OFF}[<7>]";: FORI-ITO 
38 :PRINT"W";:NEXT:PRINT" "; 
105 PRINT"{WHT}"; 

109 REM 

110 FORI = lTOl7 :PRINT" 

{ 40 SPAZI}";:NEXT 
120 PRINT"{HOME}"; 

130 FOR 1=1984 TO 2023 : POKE I, 
248:POKE 1+54272,10:NEXT 
140 IF PEEK (789)012*1 6THENSYS 1 
2*4096 

150 FOR ROW = 6 TO 1STEP-1:F0R C 
HAR=1 TO 38 

155 FOR K= 1 TO 600-CHAR* 10+( 6-RO 
W)*20-50*(9 -PEEK(SPEED) ) :NEX 
T 

157 IF PEEK(FLAG) THEN 2000 
160 P=RND(1)*38+1 

170 IF PEEK(1024+ROW*40+P)=32THE 
NI 60 

180 POKE 1024+ROW*40+P,ROW(ROW) 

190 NEXTCHAR 

191 SYS 49745 

192 FORQ=lT02:POKE54296,05 :POKE 
54277,5:POKE54278, 218 

193 POKE 54273,150 :POKE54272,13 
9:POKE54276,17 

194 FORT=lTO50:NEXT:POKE54276,16 
:FORT=1TOl0 :NEXT 

195 NEXTQ 

197 IF ROW >1 THENSYS 49691 

200 NEXTROW 

201 FOR K=1 TO 300:NEXTK 

205 IF PEEK(SPEED)>2 THEN POKE S 
PEED,PEEK(SPEED)-1:POKE PADD 
LE, 6 

210 PRINT"{HOME}{GIU 1 }"; 

220 GOTO 80 
999 END 
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1000 PRINT"{CLR}{ 7 SPAZI}DIFFIC 
OLTA'{ 3 SPAZI}{ 5 GIU'}" 
1010 INPUT"{WHT}VELOC.(1-9){YEL} 
{ 3 DES}5{ 3 SIN}";S 
1015 IF S>9 OR S<1 THEN 1010 
1020 INPUT"{ 3 GIU*}{WHT}LARGH. 

{ 3 SPAZI}PALETTE (1-9) 

{YEL}{ 3 DES}4{ 3 SIN}";W 
1030 IF W>9 OR W<1 THEN 1020 
1040 RETURN 

2000 PRINT"{HOME}{ 10 GIU'}{YEL} 
GAME OVER - PREMI SPAZIO PE 
R CONTINUARE" 

2010 POKE 198,0 

202 0 GETA$: IFA$<>" "THEN2 020 

2030 RUN 65 

49000 PRINT"{WHT}{CLR}CARICO IL 
LINGUAGGIO MACCHINA..." 
49005 1=49152 

49010 READ A:IF A=256 THEN RETUR 
N 

49020 POKE I,A:I = I + 1 : GOTO 4901 0 
491 52 DATA 1 20,1 69,1 92,1 41 ,21 , 3, 

1 69 

49160 DATA 29,141,20,3,88,169,18 

49168 DATA 141,253,207,169,0,141 
,250 

49176 DATA 207,141,247,207,141,2 

48.207 

49184 DATA 96,173,255,207,141,25 

2.207 

49192 DATA 172,253,207,169,32,15 
3,1 51 

49200 DATA 7,200,169,160,174,251 
, 207 

49208 DATA 153,151,7,200,202,208 
, 249 

49216 DATA 169,32,153,151,7,206, 
252 

49224 DATA 207,208,3,76,3,193,17 

2 

49232 DATA 253,207,169,32,153,71 
,7 

49240 DATA 200,169,160,174,251,2 
07,153 

49248 DATA 71,7,200,202,208,249, 

1 69 

49256 DATA 32,153,71,7,200,206,2 
52 

49264 DATA 207,208,3,76,3,193,17 

2 

49272 DATA 253,207,169,32,153,24 
7,6 

49280 DATA 200,169,160,174,251,2 
07,153 

49288 DATA 247,6,200,202,208,249 
, 169 


49296 

49304 

4931 2 

49320 

49328 

49336 

49344 

49352 

49360 

49368 

49376 

49384 

49392 

49400 

49408 

4941 6 

49424 

49432 

49440 

49448 

49456 

49464 

49472 

4 94 80 

49488 

49496 

49504 

4951 2 

49520 


DATA 32,153,247,6,200,206, 
252 

DATA 207,240,123,172,253,2 
07,169 

DATA 32,153,167,6,200,169, 
1 60 

DATA 174,251,207,153,167,6 
,200 

DATA 202,208,249,169,32,15 
3,167 

DATA 6,200,206,252,207,240 
,91 

DATA 172,253,207,169,32,15 

3,87 

DATA 6,200,169,160,174,251 
, 207 

DATA 153,87,6,200,202,208, 

249 

DATA 169,32,153,87,6,200,2 
06 

DATA 252,207,240,59,172,25 
3,207 

DATA 169,32,153,7,6,200,16 
9 

DATA 160,174,251,207,153,7 
,6 

DATA 200,202,208,249,169,3 
2,153 

DATA 7,6,200,206,252,207,2 
40 

DATA 27,172,253,207,169,32 
, 1 53 

DATA 183,5,200,169,160,174 
,251 

DATA 207,153,183,5,200,202 
,208 

DATA 249,169,32,153,183,5, 
200 

DATA 165,197,201,42,208,13 
,173 

DATA 253,207,201,1,240,24, 
206 

DATA 253,207,76,40,193,201 
,50 

DATA 208,14,173,253,207,24 
, 109 

DATA 251,207,201,39,240,3, 
238 

DATA 253,207,238,250,207,1 
73,250 

DATA 207,205,249,207,240,3 
,76 

DATA 49,234,169,0,141,250, 
207 

DATA 169,112,133,251,169,7 
, 1 33 

DATA 252,160,0,185,152,7,4 
1 
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49528 DATA 127,201,32,208,74,200 
,192 

49536 DATA 39,208,242,160,0,177, 

251 

49544 DATA 201,81,240,37,201,207 
,240 

49552 DATA 33,201,90,240,29,200, 

1 92 

49560 DATA 40,208,237,56,165,251 
,233 

49568 DATA 40,133,251,176,2,198, 

252 

49576 DATA 166,251,208,220,166,2 
52,224 

49584 DATA 4,208,214,76,49,234,1 
70 

49592 DATA 152,24,105,40,168,138 
,145 

49600 DATA 251,152,56,233,40,168 
,169 

49608 DATA 32,145,251,32,251,193 
,76 

49616 DATA 99,193,169,32,153,152 
,7 

49624 DATA 32,81,194,169,15,141, 
24 

49632 DATA 212,169,17,141,5,212, 
169 

49640 DATA 213,141,6,212,169,2,1 
41 

49648 DATA 3,212,169,100,141,2,2 
1 2 

49656 DATA 169,5,141,1,212,169,1 
35 

49664 DATA 141,0,212,169,65,141, 
4 

49672 DATA 212,160,0,162,0,142,3 
2 

49680 DATA 208,232,208,250,200,2 
08,247 


49688 DATA 169,12,141,32,208,169 

64 

49696 DATA 141,4,212,160,39,185, 

49704 DATA 4,201,81,240,11/136,2 
08 

49712 DATA 246,169,1,141/254,207 
49720 DATA 49,234,169,32,153,0,4 


49728 DATA 76,49,234,152,72,160, 

49736 DATA 185,0,4, 201 /57,208,9 
49744 DATA 169,48,153,0,4,136,76 


49752 DATA 255,193,185,0,4,24,10 

49760 DATA 1,153,0, 4 / 104 '\ 6 *' 
49768 DATA 174,255,207,202,142,2 
55,207 , i 

49776 DATA 232,169,152,133,251,1 

69,7 


49784 DATA 133,252,56,165,251, 
3/80 , 

49792 DATA 133,251,176,2,198,252 

,202 


49800 DATA 208,242,160,0,177,251 

,201 

49808 DATA 160,240,4,200,76,59,1 
94 

49816 DATA 174,251,207,169,32,14 
5,251 

49824 DATA 200,202,208,250,96,16 

0,0 

49832 DATA 152,153,0,212,200,192 
,9 

49840 DATA 208,248,96,256 
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Econometro 


Disck drive 


Vi presentiamo un programma che vi con¬ 
sentirà di controllare il consumo della vostra 
auto, facendone uno studio statistico com¬ 
prendente anche un grafico ad alta risoluzio¬ 
ne del suo andamento. Potrete calcolare il 
consumo medio e la deviazione standard, un 
parametro statistico che indica di quanto il 
consumo tende a discostarsi dal valor medio 
(facciamo un esempio: se il consumo medio 
èdi 11 kmllitro e la deviazione standard è di 
3, ciò significa che, a seconda delle situazio¬ 
ni. il consumo vana mediamente tra 11-3=8 
e 11 +3=14 km/litro). 

Il programma è gestito tramite dei menù (li¬ 
ste di comandi) e richiede un disk dnve. La 
prima cosa da fare quando si utilizza l'ECO¬ 
NOMETRO per la pnma volta è creare un 
nuovo file di dati sul disco (esiste un coman¬ 
do apposito nel programma); il file porta il 
nome dell'auto e. se ne possedete più di 
una. potrete utilizzare altrettanti files. Quin¬ 
di potrete iniziare a memonzzare i dati, che 


2 POKE53280,0:POKE53281,0 
5 PRINT"{YEL}{CLR}{ 9 DES} 

{ 11 GIU'){RVS > ECONOME 
T R 0 " 

10 GOSUB4000 

20 DIMO (200) ,G (200) 

25 PRINT"{ 8 SU}"; 

30 PRINT"(CLR)":PRINT"MENU PRINC 
I PALE":PRINT 

40 PRINT"(1)STUDIO CONSUMO":PRIN 
T 

60 PRINT"(2)CREA NUOVO FILE":PRI 
NT 

61 PRINT"(3)INPUT NUOVI DATI":PR 
INT 

62 PRINT"(4)FINE PROGRAMMA" 

70 GETX$:IFX$*""THEN70 

71 X»VAL(X$):PRINT"{CLR}" 

80 ONXGOTOl20,610,652,800 
110 GOTO30 

120 PRINT"{CLR}":PRINT"NOME AUTO 
:":INPUTNS 

130 PRINT"{CLR}":PRINT"CARICAMEN 
TO DATI" 


consistono nella lettura del contachilometri 
al momento del rifornimento e nella quantità 
di carburante consumato. Memorizzerete 
perciò un nuovo dato ad ogni rifornimento. E 
inoltre possibile creare un file-copia per sal¬ 
vare dati parziali, riguardanti rifornimenti ef¬ 
fettuati fino a una certa lettura del contachi¬ 
lometri: per cancare i dati contenuti in un 
file-copia impostate COPIA seguito dal nome 
dell'auto quando quest 'ultimo vi viene richie¬ 
sto. 

Per studiare il consumo dovete innanzitutto 
indicare una stima del valor medio, che serve 
a centrare il grafico sullo schermo. Dopo il 
grafico vengono mostrati i risultati statistici, 
cioè il consumo medio e la deviazione stan¬ 
dard. Scoprirete che tutto ciò può esservi 
molto utile: ad esempio, un aumento del 
consumo rilevato sul grafico può indicarvi 
che è ora di cambiare l'olio, ecc. 

NOTA PER LA VERSIONE PER IL VIC: Questo 
programma richiede la Super Espansione. 


140 B$-"0:"+N$+",S,R" 

150 OPEN3,8,3,B$ 

170 INPUTÌ3,Z:IFZ*OTHENl81 

180 FORI«OTOZ: INPUT!3,D(I),G(I) : 
NEXTI 

181 CLOSE3 

190 PRINT"{CLR}" 

200 PRINT"SCBGLIPRINT:PRINT 

210 PRINT"(1)STUDIO CONSUMO":PRI 
NT 

211 PRINT"(2)INPUT NUOVI DATI":P 
RINT 

220 PRINT"(31CREA FILE COPIA":PR 
INT 

230 PRINT"(4JMENU PRINCIPALE" 

240 GETXS:IPX$«""THEN240 

241 X-VAL(XS):PRINT"{CLR}" 

250 ONXGOTO270,490,730,30 
260 GOTO200 

270 PRINT"STIMA CONSUMO":INPUTXG 
:X*FRE(0):PRINT"{CLR}" 

271 PRINT"SPIEGAZIONE GRAFICO: 

{ 2 GIU'}":PRINT 

272 PRINT"ORIZZONTALE:" 
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273 PRINT"N. RILEVAZIONI":PRINT: 
PRINT 

274 PRINT"VERTICALE:" 

275 PRINT"CONSUMO RELATIVO":PRIN 
T:PRINT:PRINT 

276 PRINT"PREMI UN TASTO QUANDO 
HAI OSSERVATO{ 5 SPAZI}IL GR 
AFICO" 

277 FORJ = 1T04000 :NEXTJ 

280 IFXG>=14THF.NXG=26:G0T0295 
285 IFXG>=10THENXG=33 
290 IFXG<10THENXG=44 

295 POKE53272,PEEK(53272)OR8:POK 
E53265,PEEK(53265)OR3 2 

296 SYS49710 

300 I=-l:X=0:N=0:Ml=0:M2=0:F=0:Y 

= 0 

330 1 = 1 + 1 :IFI = Z + 1THEN381 
340 G=G(I):D=D{I)-Di:Dl=D(I) :IFG 
=0THEN330 

350 X=X+D:F=F+G:MG=X/F:MG=INT(1 0 
0*MG)/100 

360 MP=D/G:Mi=Ml + (MP*MP):N=N+1 :M 
2=MP+M2 

361 M3=M2/N:M4=M1/N:M5=M3T2:SS=M 
4-M5 

362 IFSS>0THENSD=SQR(SS) 

370 SD=INT(100*SD)/100 

380 GOTO420 

381 IFPEEK(197)=64THEN381 

382 POKE53272,21:POKE53265,27 

383 FORJ=lTO30:NEXTJ:PRINT"{CLR} 

II 

390 PRINT"CONTACHILOMETRI =";D(I 
- 1 ) 

391 PRINT"{GIU'}KM/L =";MG 

392 PRINT"{GIU'}DS{ 3 SPAZI}=";S 
D 

393 FORJ=lTOl0:PRINT:NEXTJ 

394 PRINT"PREMI UN TASTO" 

396 IFPEEK(197)=64THEN396 
400 GOTO480 

420 Y=Y+10:IFY>319THENY=0 
430 IFY>0THEN440 
435 IFPEEK(197)=64THEN435 
438 SYS49710 
440 A=(XG*MG) 

450 A=500-A 

460 IFA<0THENA=0 

465 IFA>199THENA=1 99 

470 Y=INT(Y+.5):A=INT(A+.5) :POKE 
53240,A:POKE53241,0 

471 IFY>255THENPOKE53243,1:POKE5 
3242,Y-256:GOT04 7 3 

472 IFY<255THENPOKE53243,0 :POKE5 
3242,Y 

473 SYS49408 
475 GOTO330 


480 

490 

491 

492 


POKEl 98,0:POKE53272,21 :POKE5 

3265,27:GOTOl90 
PRINT"{CLR}":I = Z :I = J + ],;J { 
nnTiw'iir.TTMA LETTURA: , 


PRINT"ULTIMA 
):PRINT 
PRINT"NUOVA 


LETTURA :":INPUTD 


493 PRINT"{GIU'}CARBURANTE CONSU 
MATO:":INPUTG(I) 

494 PRINT"{CLR}" 

495 IFI=1 THENG(I)=0 

500 PRINT"MENU 2": PREPRINT 
510 PRINT" (1) FINE DATI P .f * 0 D 
520 PRINT"( 2 )CORREZIONE ULTIMO 


530 PRINT"(3)NUOVO DATO":PRINT 

550 GETX$ :IFX$=""THEN550 

551 X=VAL(X$):PRINT 

560 0NXG0T0654,590,600 


570 
590 
600 
61 0 

620 


GOTO500 

1=1-1:Z=I:GOTO490 
PRINT"{CLR}":GOT04 90 
PRINT:PRINT"NOME AUTO: :INPU 
TN$ 

PRINT:PRINT"LETTURA INIZIALE 
CONTACHILOMETRI:": INPUTD(0) 


630 PRINT" {CLR} " : PRI NT "ELABORA 7,1 
ONE DATI":PRINT:PRINT 

640 Z=0 

650 OPEN2,8,2,N$ + "» S,W":PRINT# 2, 

Z * CLOSE2 

651 OPEN15,8,15,"IO":CLOSEl5 :GOT 
040 

652 PRINT"NOME AUTO:" 

653 INPUTN$:PRINT"{CLR}" 

654 PRINT"{CLR}":PRINT"ATTENDI P 
REGO" 

660 A$ = "@ 0 :"+N$ + " , S, W" 

670 OPENl ,8,9,A$ 

680 PRINTll,Z: IFZ = 0THEN700 
690 FORI=0TOZ:PRINT#1,D(I):PRINT 
#1,G(I):NEXTI 
700 CLOSEl 

710 IFBU=1THENBU=0:RETURN 

720 GOTOl90 

730 PRINT"{CLR}" 

740 BU$="COPIA ":BU=1:UB$=N$ :N$ = 
BU$+UB$:GOSUB654 
750 N$=UB$:GOTOl90 
760 GOTO30 
800 END 
4000 1=49408 

4020 READA:CK=CK+A:IFA=256THEN40 


40 

4030 POKEl,A:I=I+1:GOTO4020 
4040 IFCK061 1 25THENPRINT"ERRORE 
NELLE ISTRUZIONI DATA":STO 


P 
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4050 RETURN 

49408 DATA173,250,207,141,212,20 
7,173 

4941 6 DATA251 , 207,1 41 , 21 3,207,1 7 
3,248 

49424 DATA207,141,214,207,173,24 
9,207 

49432 DATAI 41 ,21 5,207,173,21 5,20 

7,74 

49440 DATA141,217,207,173,214,20 
7,106 

49448 DATAMI , 21 6, 207,1 73,21 7,20 

7,74 

49456 DATAMI , 21 7,207,1 73,21 6,20 
7,106 

49464 DATAMI , 21 6,207,1 73,21 7,20 

7,74 


49472 DATAMI , 21 7,207, 1 73,21 6, 20 

7,106 

49480 DATAMI , 21 6,207,1 73,21 3,20 
7,74 

49488 DATAMI, 21 9, 207,1 73,21 2,20 

7,106 

49496 DATAMI ,21 8,207,1 73,21 9,20 
7,74 

49504 DATAMI , 21 9,207,1 73,21 8,20 

7,106 

4951 2 DATAMI , 21 8,207,1 73,21 9,20 

7,74 

49520 DATAMI , 21 9,207, 1 73,21 8,20 

7,106 

49528 DATAMI , 21 8,207,1 73,21 4,20 
7,41 

49536 DATA7,141,220,207,173,216, 
207 

49544 DATAI 0,46,217,207,10,46,21 
7 

49552 DATA207,10,141,210,207,46, 
21 7 

49560 DATA207,173,217,207,141,21 
1 ,207 

49568 DATAI 73,210,207,10,46,217, 
207 

49576 DATATO,46,217,207,109,210, 
207 

4 9584 DATAMI , 21 6,207, 1 73,21 1 , 20 
7,109 

49592 DATA21 7,207,1 41 , 21 7,207, 1 7 
3,216 

49600 DATA207,10,46,217,207,10,4 
6 

49608 DATA21 7,207,10,46,217,207, 
141 


49616 DATA216,207,173,218,207,10 
,46 

49624 DATA219,207,10,46,219,207, 

10 

49632 DATA46,219,207,141,218,207 
,24 

49640 DATAI 73,216,207,109,218,20 
7,141 

49648 DATA208,207,173,217,207,10 
9,219 

49656 DATA207,141,209,207,24,173 

,220 

49664 DATA207,109,208,207,141 ,20 
8,207 

49672 DATA169,0,109,209,207,141, 
209 

49680 DATA207,24,169,32,109,209, 
207 

49688 DATAMI , 209,207,1 73,208,20 
7,133 

49696 DATA251,173,209,207,133,25 
2,173 

49704 DATA212,207,41,7,141,225,2 
07 

49712 DATA56,169,7,237,225,207,1 
41 

49720 DATA225,207,169,0,141,206, 
207 

49723 DATA56,173,225,207,46,206, 
207 

49736 DATA206,225,207,16,245,160 

,0 

4 974 4 DATAI 77,251 , 1 3,206,207, 1 4 5 
,251 

49752 DATA96,169,147,32,210,255, 
169 

49760 DATAO,162,0,157,0,32,157 
49768 DATAO,33,157,0,34,157,0 
49776 DATA35,157,0,36,157,0,37 
4 9784 DATAI 57,0,38,1 57,0, 39, 1 57 
49792 DATAO,40,157,0,41,157,0 
49800 DATA42,157,0,43,157,0,44 
4 980 8 DATAI 57,0,4 5, 1 57,0,4 6, 1 57 
49816 DATAO,47,157,0,43,157,0 
49824 DATA49,157,0,50,157,0,51 
49832 DATA157,0,52,157,0,53,157 
49340 DATAO,54,157,0,55,157,0 
49848 DATA56,157,0,57,157,0,58 
49856 DATAI 57,0,59, 1 57,0,60, 1 57 
49864 DATAO,61,157,0,62,157,0 
49872 DATA63,232,208,157,169,1,1 
62 

49980 DATAO,157,0,4,157,0,5 
49383 DATAI 57,0,6,157,0,7,232 
49896 DATA208,241,96,256 





Hosaric puzzle 


C'è una tavoletta quadrata con 15 caselline 
numerate, anchesse quadrate, libere di 
scorrere una accanto all'altra, e uno spazio 
vuoto al posto della sedicesima: bisogna 
metterle in ordine nel minor tempo possibile. 
In pratica è l’antenato del Cubo di Rubik. 
Rispolverate questo rompicapo grazie al vo¬ 
stro C64. 

Potete fissare un limite di tempo, se volete: il 
movimento delle caselline, che sono contras¬ 


segnate dalle cifre da I a 9 e dalle 
a F, si ottiene mediante i tasti E (4W 
F (destra) e A (sinistra). Premete RtTURN 

scegliere seri■ 

portare le caselline nella configurazione in, 
Se oppure riprendere dalla posizione m 
cui erano rimaste dopo l'ultima partita gio- 


100 POKE53280,0:POKE53281,0:POKE 
55,176:POKE56,29:CLR:POKE542 
76,8:POKE54283,8 

11 0 POKE54277,0 :POKE54278,255 : PO 
KE54284,0:POKE54285,255:POKE 
54296,15 

120 S=1 355:SC=S+54272:DIMA$(1 6 ) 

130 PRINT"{CLR}":G=1632:X=0:DX=1 
:P=55904 :S1 =54276:S2 = 542 83 : A 
D=1232:R=14 

140 PRINT"{CLR}{GIU 1 }"TAB(11)" M 
OSAIC PUZZLE"TAB(50)" 

[< 17 Y>]{GIU'}" 

1 50 : 

160 : 

170 REM 

180 PRINT"[<7>] VUOI UN LIMITE D 
I TEMPO ? ";:GOSUB270 
190 IFIN$<>"S"THEN.240 
200 H=1 : INPUT"{HOME}{ 6 GIU'} OR 
E{ 3 SPAZI}MIN{ 2 SPAZl}SEC 
{ 2 SPAZI }(6 NUMERI)";T$:IFL 
EN(T$) O6THEN200 
21 0 IFLEFT$(T$,2)>"23"ORLEFT$(T$ 
2) <"0"THEN200 

220 IFMID$(T$,3,2)>"59"ORMID$(T$ 
,3,2)<"0"THEN200 

230 IFRIGHT$(T$,2)>"59"ORRIGHT$( 
T$,2)<"0"THEN200 
240 PRINT"{GIU 1 } TASTO PER SU: 

;:GOSUB270:U$=IN$:PRINT" 

{GIU'} PER GIU : "; :GOSUB270 
:D$=IN$ 

250 PRINT"{GIU 1 } PER SIN.: ";:GO 

SUB270:L$ = IN$:PRINT"{GIU 1 } P 

ER DES. : :GOSUB270:R$=INS 

260 GOTO310 

270 PRINT"[<X>]";:WAITl98,255:GE 
TIN$:PRINT"{SIN}:POKE216,1 
:PRINTIN$:RETURN 


280 

290 

300 

310 

320 


I LA configurazione 

PRINT"{GIU'}{ 3 SPAZI}! 2 3 

45678 9"SPC(23) A B C u 
E F { ^n!^"fG?u'}IN QUALUNQ 

FORK*OT03:POKE1 592tK,llOO:POK 

El 792+K,99 :POKE55864+K,R.POK 
E56064+K,R 

POKE1631+K*40,103:POKE1636+K 

*40,101:POKE55903+K*40,R.POK 

E55908+K*40,R:NEXT 

FORI=1TOl6:POKEG+X,63:POKEP+ 

X, 1 

370 WAITl 98,2 55 :GETA$(I):FORL=I- 

___ a > « \ p f* / t \ rii UT?M 


330 


340 


350 


360 




380 NEXT:IFA$(I)=" "THENFORK=OTO 
4:POKE55471+K,15:NEXT:B2-32: 
GOTO420 

390 IF(A$(I)<"1"ORA$(I)>"F")OR(A 
$(I)>"9"ANDA$(I)<"A")THEN370 


400 B=VAL(A$(I)) :B2 =B+4 8 :IFBTHEN 

POKE554’7+2*B,15:GOTO420 

410 B=ASC(A$(I))-64:B2=B:POKE554 
57+2*B,15 

420 POKEG+X,B2:X=X+DX:IFX=4THENG 
=G+40:P=P+40:X=0 
430 NEXT 
440 : 

450 : 

460 REM 

470 PRINT"{HOME}":FORI=0TO64:PRI 
NT"{ 4 SPAZI}";:NEXT:PRINT" 
{HOME}"TAB(127)"PUZZLE" 
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480 FORK=0TO3:POKEl192+K,100 :POK 
E55464+K,R:POKEl392+K,99:POK 
E55664+K,R 

490 POKEl231+K*40,103:POKE55503+ 
K* 40,R:POKEl 236+K*40,101:POK 
E55508+K*40,R:NEXT 
500 READA,B,C :IFA>=OTHENPOKEAD+A 
,B:POKE55504+A,C:GOTO500 
510 FORI=1TO500:NEXT:POKESl-3,80 
:POKES1,33 :PRINT"{HOME)"TAB( 
28)"( 10 GIU'}(RED)(WHT)IGOl 
[<7>]" 

520 FORT*lTO300:NEXT:PRINT" 

{HOME}"TAB(28)"{ 10 GIU'} 

( 4 SPAZI:POKESl,8:TI$*"00 
0000" 

530 PRINT"{HOME}"TAB(25)"LIMITE: 
{CYN}"; :IFT$=""THENPRINT"NES 
SUNO":GOTO580 

540 PRINTLEFTS(T$,2)":"MID$(T$,3 
,2)":"RIGHT$( T$ , 2 )"[<7>] " 

550 : 

560 : 

570 REM 

580 PRINT"{HOME}TEMPO SPESO : 

(WHT}"LEFT5(TI$,2)":"MIDS(TI 
$,3,2)":"RIGHTS(TI$,2)"[<7>] 

II 

590 IFH=1ANDT$<=TI$THEN750 
600 GETB$:J=31-PEEK(56320)AND31 : 

IFB$=""ANDJ=0THEN580 
610 IFB$=CHR$(13)ORJ=16THENWN-0: 
GOTO780 

620 IFB$ =D$OR(JAND2)THENDR*-40:C 
K-100:GOT0660 

630 IFB$=L$OR(JAND4)THENDR-1:CK- 
101:GOTO660 

640 IFB$=R$OR(JAND8)THENDR--1:CK 
*103:GOTO660 

650 DR»40:CK«99:IFB$<>USANO( JAND 
1 )«0THEN580 

660 IFPEEK(S+DR)“CKTHEN580 
670 POKES,PEEK(S+DR):POKESC,PEEK 
(SODR) : POKES+DR, 32:S-S+DR:S 
C-SC+-DR 

680 FORM-OTOl 20STEP40 :PORN-0TO3: 
W*PEEK (AD+M+N) ANDl 27: IFWOPE 
EK(1632+M+N)THEN580 


NEXT:NEXT:PRINT"{HOME}"TAB(2 
4)"{ 5 GIU'}{CYN}{RVS}HAI VI 
NTO![<7>]":POKESl-3,0 :POKESl 
,33 :WN = 1 

READN1,N2,D:IFNl=-lTHENPOKES 
1,8:GOTO780 

POKESl-4,NI :POKES1-3,N2:FORT 
*1TOD:NEXT:GOTO700 


REM 

PRINT"{HOME)"TAB(23)" 

( 5 GIU'){WHT}(RVS)HAI PERSO 
! [ < 7 >]":POKES1 - 3,10 :POKES1,1 

7 :WN■1 

POKES2-3,60 :POKES2,129 : FORT 3 
1TO300:NEXT:POKES2,8:POKESl, 

8 

TM$«TI$:PRINT"{HOME}"TAB(21) 
"{ 9 GIU'}(1) RIGIOCARE" 
PRINTTAB(21 )"{GIU’}(2) FINIR 
E" 

GETVS:IFV$<"1"ORV$>"2"THEN80 
0 

IFV$="1"THENRUN 
IFV$*"2"THENEND 
IFWNTHEN800 

PRINT"{HOME}{ 8 GIU')":FORI- 
1T06:PRINTTAB(21)" 

{ 18 SPAZI}":NEXT 
TI$»TM$:GOTO580 


REM MUSICA 

DATA0,49,1,1,178,3,2,51,1,3, 
180,3 

DATA40,53,1 , 41 , 1 82,3,42,55,1 
,43 

DATAI 84,3,80,57, 1,81,1 29, 3,8 

2 , 2,1 

DATA83,131 ,3,120,4,1,121 ,1 33 
,3,122 

DATA6,1 , 1 23, 32, 3,-1 ,-1 ,-1 
DATA 96,22,150,0,0,50,96,22, 
75,0,0,50,96,22,75,49,28,175 
,96,22,115,49,28 
DATAI 75,1 35, 33,250,0,0,0,-1 , 
- 1,-1 


690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 


86 



Campo minato 


Joystick (opzionale per il C64) 


Siete alla guida di un camion con una squa¬ 
dra di artificieri ed il vostro compito è quello 
di disinnescare tutte le bombe presenti in 
una sene di campi minati. All'inizio il vostro 
camion appare al centro del campo, dove le 
mine sono rappresentate con delle "x" e le 
bombe con dei cerchietti; il movimento del 
camion è comandato dal joystick. Dopo un 
po di tempo le bombe, una per volta, ap¬ 
paiono in negativo: ciò significa che sono in¬ 
nescate. Successivamente iniziano a lampeg¬ 
giare, il che indica che esploderanno da un 
momento all'altro. Per neutralizzarle dovete 
passarci sopra, e in tal modo ottenete IO 
punti per le bombe normali, 20 per quelle in 


45 POKE532 80,0 :POKE53281 ,0 
50 GOSUB1130 
60 : 

70 DIMBT(37) ,B3(37) ,B4(37) ,BP(37 
),BS(37),XM(4),YM(4),BC(25) 

80 DEFFNY(X)=INT((X-1024)/40) 

90 DEFFNX(X) = (X-40*FNY(X)) — 1 024 
100 DEFFNS(X)=1024+PX+40*PY 
110 DEFFNP(X)=1 307 + INT(34*RND( 1 ) 

)+4 0*INT(15*RND(1)) 

120 DEFFNN(X)=PEEK(FNS(X) ) 

130 FORJ=1T04:READXM(J) ,YM(J): NE 
XT 

140 DATA0,-1,0,1 f -l,0,1,0 
150 SC=0:BT=1680:NB=4:NW=0:D=542 
72 

160 PRINT"{CLR}"; :POKE53272,21 
170 PRINT"{RVS}{WHT}CAMPO* ** - PU 
NTI: 0" * 

180 PRINT" {RVS} {WHT} ******* *_^ re 
CORD:";HS 

190 PRINT"{RVS}{WHT}**MINATO- SC 
HERMO: 1" 

200 PRINT"{RVS}{WHT}{ 8 SPAZl}- 
{DES}"; : IFNLOl THENFORJ=l TON 
L-l:PRINT"Z";:NEXT 
210 FORJ=l 02 4TO1183 :IFPEEK(J) =32 
THENPOKEJ,160:POKEJ+D, 1 
220 NEXT 

230 XP$="{DES}{RED}U-I{GIU'} 

{ 4 SIN}{ 2 U}-T~T 1}{GIU'} 

{ 6 SIN}{ 3 U}-{ 3 2)(GIU'} 

{ 7 SIN} { 3 M*{ 3 *} {GIU’ } 

{ 7 SIN}{ 3 J}-{ 3 K}" 


negativo e 30 per quelle lampeggianti. Ogni 
volta che una bomba esplode, distrugge ciò 
che si trova nei dintorni (eventualmente an¬ 
che voi) e fa scoppiare le bombe che le stan¬ 
no vicino. 

Mentre vi spostate nel campo, evitate ovvia¬ 
mente le mine ma anche i crateri lasciati 
dalle bombe esplose (asterischi). Quando un 
campo resta privo di bombe, sia perché sono 
scoppiate sia perché voi le avete neutralizza¬ 
te, lo schermo è completato e si passa al 
successivo, con un maggior numero di bom¬ 
be. Alla fine di ogni schermo sarete penaliz¬ 
zati di 10 punti per ogni bomba esplosa. 


235 XP$=XP$+"{RED}{GIU'} 

{ 6 SIN}{ 2 J}-{ 2 K}{GIU’} 

{ 4 SIN} J-K " 

240 S$="{HOMÉlI 24 GIU'}" 

250 Q$="{WHT}{ 40 DES}" 

260 XR$="{DES}{WHT}{ 3 SPAZI} 
{GIU'}{ 4 SIN}{ 5 SPAZI} 

{GIU'}{ 6 SIN}{ 7 SPAZI} 
{GIU'H 7 S IN} { 3 SPAZI}* 

{ 3 SPAZI}{GIU'}{ 7 SIN} 

{ 7 SPAZI}" 

265 XR$ =XR$ + "{GIU 1 }{ 6 SIN} 

{ 5 SPAZI}{GIU'}{ 4 SIN} 

{ 3 SPAZI}" 

270 : 

280 BG=0:NW=NW+1:IFNW>11THEN310 
290 NB=NB+1.5:IFNW=1THEN330 
300 IFNW<6THENBT=BT-180 
310 PRINT" {HOME} { 2 GIU' }{RVS}"; 
TAB(18);NW 

320 POKEFNS(1),32:FORJ=lTONB:POK 
EBP(J),32:NEXT 

325 FORJ=lT025:P0KEBC(J),32:NEXT 

330 BN=INT(NB):FORJ=1TONB:BS(J)= 
1:NEXT 

340 FORJ=lTONB 

350 BT(J)=(.4+INT(61*RND(1))/l00 
) *BT 

360 B3(J)=BT(J)+.5*BT(J):B4(J) =B 
3(J)+BT(J) 

370 NEXT 

380 PX=19 :PY=15 :POKEFNS(1) ,90 : PO 
KEFNS(l)+D,1 
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390 FORJ =1TONB 

400 BP(J)=FNP(1):IFPEEK(BP(J))<> 
32THEN400 

410 POKEBP(J) ,87 :POKEBP(J)+D,8 :N 
EXT :NN=0 

415 F0RJ=lT025 

416 BC(J)= FNP(1):IFPEEK(BC(J))<> 
32THEN416 

417 IFPEEK(BC (J) +1)=87THEN416 

419 POKEBC(J) ,86 :POKEBC(J)+D,5:N 
EXT 

420 GETR$:IFR$<>""THEN420 
430 DR=0:TX=TI 

440 : 

450 R=(15-(PEEK(56321)ANDl5))*2 
460 IFROOTHENDR=LOG(R)/LOG(2) 
470 IFR=0THEN490 
480 : 

490 IFDR=0THEN600 
500 POKEFNS(1) ,32 :PX=PX+XM(DR):P 
Y=PY+YM(DR) 

510 IFPX< 0THENPX=39 
520 IFPX>39THENPX=0 
530 IFPY<4THENPY=2 4 
540 IFPY>24THENPY=4 
550 X=FNN(1) 

560 IFX=32THENPOKEFNS(1),90:POKE 
FNS(1)+D,1:GOTO600 
570 IFX=42ORX=86THEN960 
580 GOTO890 
590 : 

600 NN=NN+1:IFNN>INT(NB)THENNN=1 

610 IFBS(NN)=0THEN600 
620 TG=TI-TX 

630 IFTG>B4(NN)THENNl=NN:GOTO720 

640 IFBS(NN)>2THEN690 
650 IFTG>BT(NN)THENBS(NN) =2 
660 IFTG>B3(NN)THENBS(NN)=3 
670 IFBS(NN)=1THEN450 
680 IFBS(NN)=2THENPOKEBP(NN) ,21 5 
:POKEBP(NN)+D,1 : GOTO450 
690 IFBS(NN)=3THENPOKEBP(NN),87: 
POKEBP(NN)+D,1 :BS(NN)=4 : GOTO 
450 

700 IFBS(NN)=4THENPOKEBP(NN),215 
: POKEBP(NN)+D,1:BS(NN)=3:GOT 
0450 
710 : 

720 TQ=TI:PD=0 

725 X$="{OFF}"+LEFT$(S$,FNY(BP(N 
1 ) ) - 2) +LEFT$(Q$,FNX(BP(NI))- 
1 ) 

730 BS(N1)=0:N2=0:PRINTX$;XP$; 
740 FORJ=lTONB:X=PEEK(BP(J)):IFB 
S(J)=0THEN760 

750 IFX0 87ANDX021 5ANDX021 8THE 
NN2=J 


760 NEXT : IFFNN ( 1 ) < >90 ANDFNN (1)0 
218THENPD=1 

770 PRINTX$;XR$;:GR=129:GOSUB200 
0 

780 FORJ=1TONB:IFPEEK(BP(J))=32A 
NDBS( J) OOTHENPOKEBP(J) ,87-1 
28*(BS(J)>1) 

790 NEXT:BN=BN-1 
800 IFPD=1THEN960 
810 IFBN=0THEN840 
820 IFN2 = 0THENTX=TX+(TI-TQ): GOTO 
450 

830 Ni=N2:G0T0725 
840 PRINT"{HOME}{ 2 GIU'HRVS}"; 
TAB(20); 

850 FORJ=1TO20:PRINT"{RVS} 

{ 2 SPAZI}COMPLETATO 
{ 12 SIN}";:FORK=lTOl00:NEXT 

860 PRINT"{RVS}{ 12 SPAZI} 

{ 12 SIN}";:F0RK=1T0100:NEXT 
:NEXT 

870 SC=SC-10*(INT(NB)-BG):IFSC<0 
THENSC=0 

880 PRINT"{ 4 SIN}{ 3 SU} 

{ 10 SPAZI}{ 10 SIN}";SC:GOT 
0280 
885 : 

890 BG=BG+1:TQ=TI:POKEFNS(1),218 

895 FORJ=lTONB:IFPEEK(BP(J))=218 
THENAJ=BS(J):BS(J)=0 
900 NEXT 

910 IFAJ=4THENAJ=3 

920 SC=SC+10*AJ:PRINT"{HOME} 

{RVS}";TAB(16);SC 
930 GR=33:GOSUB2000:BN=BN-1:IFBN 
=0THEN840 

94 0 TX=TX+(TI-TQ):GOT0450 
950 : 

960 GR=129:GOSUB2000 

961 TQ=TI:FORJ=lTO20:POKEFNS(1), 
42 :FORK=1T02 5 :NEXT:POKEFNS(1 
) ,170 

970 FORK=lT025:NEXT:NEXT:POKEFNS 
(1),32:NL=NL-1 

980 POKEl153+NL,160:DR=0:PX=19 :P 
Y= 1 5 

990 IFNL=0THEN1045 
1 000 IFBN=0THEN840 
1010 GETR$:IFR$<>""THEN1 01 0 
1 020 FORJ=lTONB:IFPEEK(BP(J) )=32 
ANDBS(J) OOTHENPOKEBP(J) ,87 
-128*(BS(J)>1) 

1030 NEXT 

1 040 POKEFNS(1) ,90 :TX = TX+(TI-TQ) 
:GOT04 50 

1045 IFSC>HSTHENHS=SC:PRINT" 

{HOME}{GIU 1 }{RVS}";TAB(17); 
HS 


88 



1 050 FORJ=1TOl 500 :NEXT:PRINT" 

{HOME}{WHT}{ 3 GIU'}{RVS}"; 
TAB(24);"FINE GIOCO{GIU'} 

{ 12 SIN} ANCORA?"; 

1060 PRINT"(S/N) { 5 SIN}"; 

1080 PRINT"{RVS}S/{OFF}N 
{ 3 SIN}"; 

1081 FORJ=1T099 :NEXT 

1082 PRINT"{OFF}S{RVS}/N 
{ 3 SIN}"; 

1083 FORJ=lT099:NEXT 

I 084 GETR$:IFR$ = "S"THEN11 1 0 
1090 IFR$<>"N"THENl080 

1100 PRINT"{CLR}{WHT}{ 2 SPAZI} 
CIAO !{ 2 SPAZI}":END 
1110 GOSUB1130:GOTOl50 

II 20 : 

1130 PRINT"{CLR}{RVS}{WHT} 

{ 6 DES}{ 2 SPAZI}C A M P 
0{ 4 SPAZI}M I N A T O 
T 2 SPAZI} ":POKE5‘52T2,23 
1140 PRINT"{ 2 GIU'}VUOI LE ISTR 
UZIONI? (S/N)" 

1150 GETR$:IFRf="N"THENl41 0 
1160 IFR$<>"S"THEN1150 
1180 PRINT"{CLR}LO SCOPO DEL GIO 
CO E' DISINNESCARE" 

1190 PRINT"PIU' BOMBE POSSIBILI 
PRIMA CHE QUESTE" 

1200 PRINT"SCOPPINO. PER FARE CI 
O’ DEVI RAGGI UN- 1 * - 
1 21 0 PRINT"GERLE CON IL TUO CAMI 
ON. " 

1220 PRINT"LE BOMBE DOPO POCO TE 
MPO APPAIONO IN" 

1230 PRINT"NEGATIVO, POI LAMPEGG 
IANO; A QUESTO" 

1240 PRINT"PUNTO STANNO PER ESPL 
ODERE: ATTENTO !" 

1250 PRINT"SE UNA BOMBA ESPLODER 
A' VICINO A TE," 

1260 PRINT"SALTERAI IN ARIA! UNA 
ESPLOSIONE PUÒ'" 

1270 PRINT"ANCHE PROVOCARE UNA R 
EAZIONE A CATENA." 


1280 PRINT"NON FINIRE NEI CRATER 
I DELLE BOMBE (*)" 

1290 PRINT"0 CONTRO UNA MINA (X 
), SE NON VUOI" 

1300 PRINT"ESSERE DISTRUTTO." 
1320 PRINT"I COMANDI SONO: 

{ 3 SPAZI}{RVS}1{OFF} 

{ 4 SPAZI}SU" 

1330 PRINT"{ 18 SPAZI}{RVSjCTRL 
{OFF} SINISTRA" 

1340 PRINT"{ 18 SPAZI}{RVS}2 
{OFF}{ 4 SPAZI}DESTRA" 

1 350 PRINT" { 18 SPAZ I } { RVS } *■ 

{OFF}{ 4 SPAZI}GIU'" 

1355 PRINT"OPPURE IL JOYSTICK (P 
ORTA 1)." 

1360 PRINT"UNA VOLTA PARTITO, IL 
TUO CAMION NON" 

1370 PRINT"PUO 1 FERMARSI, MA PUÒ 
' ATTRAVERSARE IL" ■ 

1380 PRINT"BORDO DELLO SCHERMO E 
RICOMPARIRE SUL" 

1385 PRINT"LATO OPPOSTO." 

1390 PRINT"{GIU'}PREMI RETURN PE 
R CONTINUARE." 

1 400 GETR5 : IFR$OCHR$ (13) THENl 40 
0 

1410 PRINT"{CLR}LIVELLO DI DIFFI 
COLTA' ? (0-3)" 

1420 GETRS:IFR$<"0"ORR$>"3"THENl 
420 

1430 NL=4-VAL(R$):RETURN 
1900 END 
2000 : 

2010 QW=54272 

2020 FORS = QWTOQW+24:POKES,0:NEXT 

2025 POKEQW+24,47 
2030 POKEQW+5,71:POKEQW+6,240 
2050 POKEQW+4,129:POKEQW+1,36 : PO 
KEQW,85 

2060 FORT=1T02 50 :NEXT 
2070 FORT=l5TOOSTEP-1:POKEQW+24, 
T:NEXT 
2080 RETURN 

10000 PRINTPEEK(56321):GOTO!0000 
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Randelli Nusic 


Paddle 


Questo programma permette di ottenere 
spettacolari effetti sonori composti da se¬ 
quenze di suoni con frequenza, volume e du¬ 
rata casuali. È. possibile controllare manual¬ 
mente frequenza e durata delle note per 
mezzo delle paddles, i cui valori numerici 
vengono mostrati sullo schermo: ruotando 
quella destra (col pulsante premuto) si modi¬ 
fica la durata, e ruotando la sinistra (sempre 


100 GOSUB440 

1 1 0 PRINT’MCLR} { 9 GIU* } 

{ 13 DES}RANDOM{ 2 SPAZllMUS 
IC" 

120 REM AZZERA REGISTRI SID 

130 SID=54272:PA=SID+25:FB=56321 
:AD=17:SR=243:FU=17:D1=30:WA 
$-" TRIANGOLARE{ 2 SPAZI}" 

140 FORT=SIDTOSID+24:POKET,0:NEX 
T 

150 POKESID+24 , 1 5 

160 POKESID+5,AD :POKESID+ 6 ,SR 
170 IFPEEK(197)>60RPEEK(197)<3TH 
ENI 90 

180 ONPEEK(197)-2GOSUB320,330,34 
0,350 

190 KK= 0 : FI=PEEK(FB)AND 8 :F2 = PEEK 
(FB)AND4 

200 IFF1 <>0ANDF2<>0THENFBS = " 

{ 20 SPAZI}":GOSUB410 :GOSUB3 
70 :G0T02 4 0 

21 0 IFF1 =0ANDF2 = 0THENFB$ = "ENTRAM 
BI I PULSANTI":GOSUB400:GOSU 
B360 :G0T02 50 

220 IFFl =0THENFB$ = " PULSANTE SIN 
ISTRO{ 2 SPAZI}":GOSUB400:GO 
T02 4 5 

230 IFF2 =0THENFBS = "{ 2 SPAZI}PUL 
SANTE DESTRO{ 3 SPAZI}":GOSU 
B360:KK= 1 

240 DI=INT(RND(0)*255):GOSUB410: 
IFKK=1THEN250 

245 D2=INT(RND(0)*255):GOSUB370 

250 POKESID+1,Di :POKESTD,50 :POKE 
21 4,12:PRINT:P0KE211, 6 :PRINT 

"FREQUENZA"; DIS; 

260 POKESID+4,FU 

270 FORT=lTOD2:NEXT:POKESID+4,FU 
AND254 

280 PRINT"{ 4 DES}DURATA";D2$; 

290 PRINT"{GIU'}( 27 SIN}FORMA D 
'ONDA {RVS}";WA$; 


col pulsante premuto) si modifica la frequen¬ 
za. Premendo entrambi i pulsanti la nota se¬ 
lezionata viene ripetuta, e rilasciandoli il 
computer riprende a generare musica total¬ 
mente casuale. 

Le quattro forme d'onda (triangolare, ret¬ 
tangolare, dente di sega e rumore) vengono 
selezionate mediante i tasti funzione. 


300 POKE214,14 :PRINT:POKE211,10: 

PRINTFB3 
310 GOTO170 

320 FU=129 :WA$ = "{ 4 SPAZljRUMORE 
{ 4 SPAZI1":RETURN 
330 FU=17 :WA$ = " TRIANGOLARE 
{ 2 SPAZI}":RETURN 
340 FU= 3 3 :WA$ = "DENTE{ 2 SPAZl}DI 
SEGA":RETURN 

350 FU=65:WA$=" RETTANGOLARE ":P 
OKESID + 2,245:POKESID + 3,7 :RET 
URN 

360 D2=PEEK(PA) 

370 D2$ = STR$(D2) : IFLEN(D2$)=3THE 
ND2$ = " " + D2$ 

380 IFLEN(D2$)=2THEND2$ = " 

{ 2 SPAZI}"+D2$ 

390 RETURN 

400 DI=PEEK(PA+1) 

410 DI$=STR$(Di):IFLEN(Dl$)=3THE 
ND1$=" "+D1$ 

420 IFLEN(D1 $)=2THENDl$ = " 

{ 2 SPAZI}"+Dl$ 

430 RETURN 

440 PRINT"{CLR}{ 15 DES}{BLK)CON 
TROLLI":POKE 5 3 2 81 ,1 
450 PRINT"{BLK}{GIU’}{DES}QUANDO 
IL PULSANTE DESTRO E' PREMU 
TO," 

460 PRINT"{GIU'}{ 7 DES}LA PADDL 
E DESTRA CONTROLLA" 

470 PRINT"{GIU*}{ 5 DES}LA DURAT 
A DEI SUONI PRODOTTI." 

480 PRINT"{GIU 1 }QUANDO IL PULSAN 
TE SINISTRO E' PREMUTO," 

490 PRINT"{GIU'}{ 6 DES}LA PADDL 
E SINISTRA CONTROLLA" 

500 PRINT"{GIU’}{ 4 DESILA FREQU 
ENZA DEI SUONI PRODOTTI." 

510 PRINT"{GIU'}{ 2 DES}SE AMBED 
UE I PULSANTI SONO PREMUTI," 
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520 PP.INT"{GIU’H 3 DES ) LA mota 
SELEZIONATA VIENE RIPETUTA" 
530 PRINT"(GIU'}E PUÒ' essere co 
NTROLLATA DALLE RADULE." 


E LA FORMA D'ONDA DEL SUONO- 

If 

560 PRINT”(GIU'}fRVS}f 4 DES} PR 
EMI UN TASTO PER COMINCIARE 


540 PRINT"lGlU'}{ 4 DES}I TASTI 
FUNZIONE SONO USATI PER" 

550 PRINT”(GIU'}{ 2 DSSlSCEGLIER 


570 FORT=1TO10Q:NEXT 
5S0 IFPEEK(I97)=64THEN580 
590 RETURN 
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Hawkmen 


joystick 


Gli Hawkmen (uomini falco) sono gli abitanti 
di un misterioso pianeta. Scopo della loro vi¬ 
ta è quello di raccogliere, tuffandosi in pic¬ 
chiata, le pietre d'oro che abbondano sul 
terreno, evitando i nemici sempre in aggua¬ 
to. 

In questo gioco vi trovate appunto nei panni 
di un Uomo-Falco: dovete raccogliere il mag¬ 
gior numero possibile di pietre d'oro, guar¬ 
dandovi dai numerosi uccelli predatori che 
volano nel cielo, dal grande pterodattilo che 
passa velocemente rasoterra e dalle malefi¬ 


co POKE52,48 :POKE56,48:CLR:GOSU 
B500:EN=500:GOTOl60 
130 PRINT"{HOME}{RVS}{RED)";TAB( 
1 0 ) " { S IN } " ; EN ; ■• {BLU ) " ; TAB ( 27 
-LEN(STRS (SC) )) ;SC; 

140 IFEN<=0THEN410 
150 RETURN 

160 IF ( PEEK (56321 ) AND1 5)01 5THEN 
JS = PF.FK (56321 ) AND 1 5 

170 IFRND(1)>.9THENQ=LL*RND(1 )+( 
1 5*RND ( 1)+2) *LL:POKET+Q,FOOL 
:POKEC+Q,6*RND(1)+2 
180 IFRND (1)<.7THEN200 
190 Q = 920 + INT(20*RND(1))*2 :Z = 33- 
2*(RND(1)>.7):POKET+Q,Z:POKE 
T+Q+l,Z+l 

200 IFPEEK(V+31)THEN410 
210 Q=PX+LL*PY:POKET+Q,PC:POKEC+ 
Q,6:EN=EN-1-9*(1-(PEEK(56321 
)ANDl6)/I6) 

215 PRINT"{HOME}{RVS){RED}"TAB(1 
0);"{SIN}";-EN*(EN>0);"{SIN} 
"; : IFEN< = 0THEN410 
22 0 NX= PX+1+2 *(JS = 11) :NY=PY+(NX< 
0)-(MX>39):NX=-NX*(NX<40)-40 
*(NX<0) 

230 NY=NY-(JS=13)+(JS=14):IFNY<2 
ORNY> 2 3THENJS = 2 7-JS:NY=PY 
240 WHATSIT=PEEK(T+NX+LL*NY) 

250 IFNY> 22THEN3 0 0 
2 60 IFWHATSIT= 3 2THENPOKET+PX+LL* 
PY,32:PX = NX:PY = NY:GOTOl 6 0 
270 IFPEEK(56321)ANDl6THEN410 
2 80 POKET+PX+LL*PY,32 :POKES + 24,1 
5 :POKES + 5,9 :POKES + 6,0 :POKES + 
1,10 


che lucertole che si annidano nel terreno. 
Inoltre dovrete fare attenzione alla vostra 
energia, che col tempo calerà pericolosa¬ 
mente e che potrete riguadagnare solo riu¬ 
scendo a catturare qualcuno degli uccelli che 
volano vicino. 

Usate il joystick per muovervi, tenendo conto 
che i forti venti del pianeta vi costringono a 
discendere e a risalire in diagonale e non per¬ 
pendicolarmente al terreno. Per catturare gli 
uccelli utilizzate il pulsante. 


281 FORI = OTOl0 :POKES,I* 20 :POKES + 
4,32 :POKES + 4,33 :NEXT:POKES + 2 
4,0 

290 WHATSIT=32 :SC = SC+50 :EN=EN+20 
:GOSUB130 :G0T02 50 
300 JS = 2 7-JS:IFWHATSIT< 330RWHATS 
IT> 3 4THEN3 3 0 

305 Q=(NXAND254)+LL*NY:POKET+Q,3 

2 :POKET+Q+1 ,3 2 :EN = EN+ 50 

32 0 POKET+ PX + LL*PY,32 :PX = NX:SC = S 
C + 200:GOSUB130 :GOTOl60 
330 IFWH=32THENl60 
340 : 

350 POKET+PX+ LL*PY,32 :Q=LL*NY+(N 
XAND2 54) :POKET+Q,37 :POKET+Q+ 

1 ,38 :POKET+Q-LL,42 

360 POKET+Q-LL+1 ,36 :POKEC+Q-LL,1 

3 : POKEC+Q-LL+1 ,13 

370 POKES+24,15:POKES+l,0:POKES, 

2 55 :POKES + 3,8 :POKES + 2,0 :POKE 
S+5,12 :POKES + 6,0 

375 POKES+4,64:POKES+4,65:FORW=l 
TOl 500 :NEXT:POKES + 4,64:FORL= 
STOS+24:POKEL,0:NEXT 

380 POKET+Q, 33-.POKET+Q+1 ,34: POKE 
T+Q-LL,32 :POKET+Q-LL+1 ,32 
390 GOTO430 
400 : 

410 POKES+24,15:POKES+5,9:POKES+ 
6,0:POKES,200 

420 FORI = 0TO90STEP6:Q=PX+LL*PY:P 
OKET+Q,44+1/30:POKEC+Q,8*RND 
(1) 

425 POKE53280,1 6*RND(1) :POKES+1 , 
I :POKES + 4,12 8 :POKES + 4,129:NE 
XT 

427 FORL=STOS + 24 :POKEL,0 :NEXT 
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430 POKE53280,0:IFLI<3THENPOKET+ 
35+LI* 2,32 

4 40 POKET+PX+LL*PY,32 :Z = PEEK(V+3 
1):LI=LI+1:IFLI<4THENEN=500: 
GOSUB7 20 :GOTOl60 
450 SYS52992 

460 PRINT"{HOME}{ 3 GIU'}{RVS}"; 
TAB(15);"{RVS}{BLK}FINE GIOC 
O{BLU}" 

470 PRINTTAB(2)"{GlU 1 }{RVS}PREMI 
IL PULSANTE PER GIOCARE ANC 
ORA" 

475 FORT=lT03000:NEXT 

480 IF(PEEK(56321)ANDl6)THEN480 

490 RUN 

500 : 

510 POKE5 3 2 80,0 

515 T=1 024:C=55296:S = 54272:LL= 40 

520 CHSET=12288:1FPEEK(CHSET+264 
)=2THEN570 

530 PRINT"{CLR}":C$ = "{WHT){RED} 
{CYN}{PUR}{GRN}{YEL}{BLU}":F 
ORI=lT07:PRINT"{HOME}{GIU'}" 
;MID$ (CS ,1,1) ; :GOSUB2000 :NF.X 
T 

550 PRINTTAB(10)"{ 3 GIU'}{GRN}P 
RONTO IN [<7>}22{GRN} SECOND 
i"; 

560 GOSUB750 :GOSUB840 
570 PRINT"{CLR}"; :POKE53281 , 1 :FO 
OL= 4 1 

575 FORL=STOS+24:POKEL,0:NEXT 
580 PC = 43 :POKE53282,1 0 :POKE53283 
,2 

590 POKE53272,(PEEK(53272)AND240 
JORI 2 

600 POKE53270,PEEK(53270)ORl 6 
610 PRINT"{HOME}{RED}{RVS} 

{ 2 SPAZljENERGIA 500 
{ 2 SPAZI}{BLU}{ 2 SPAZI}PUN 
TI{ 4 SPAZI}0 {GRN} 

{ 2 SPAZI}VITE {OFF}{PUR}+ + 
+ " 

630 FORI = 0TO3 9STEP2:Q=24*LL+I: PO 
KET+Q,39:POKET+Q+1,40:POKEC+ 
Q,7 :POKEC+Q+1 ,7:NEXT 
64 0 FORI = 0TO39STF.P2 : 0= 2 3*T,L+ T : PO 
KET+Q,33 :POKET+Q+1,34:POKEC+ 
Q,13 :POKEC+Q+1,13 
645 NEXT 

650 Q=10+23*LL:POKET+Q,35:POKET+ 
Q+l,36 
660 V=53248 

670 POKEV, 220 :POKEV+1 ,194:POKEV+ 
21 ,1 :POKEV + 3 9,7:POKE2040,13 
680 POKEV+23,1 :POKEV+29,1 :POKE53 
285,3:POKE53286,4:POKE53276, 
PEEK(53276)ORI 


681 FORI=0TO6 3:POKE832 + I,0:NEXT: 
RESTORE 

685 FORI = OTOl8 :READA:POKE832 + 8 +1 
,A :NEXT 

690 DATAI 92,0,3,240,0,1 5, 1 24,85, 
95,255,0,12,8,0,3,0,0,0,240 
700 FORI = 1T05:Q=40*RND(1)+(1 0*RN 
D ( 1)+3)*LL:POKET+Q,FOOL:POKE 
C+Q,6*RND(1)+2 :NEXT 
710 SYS52992 

720 PX=5:PY=5:PC=43:POKET+PX+LL* 
PY,PC:POKEC+PX+LL*PY,6 
730 IF(PEEK(56321)ANDl5)=15THEN7 
30 

740 RETURN 

750 RESTORE: FORI = 0TOl 8 :READA:NEX 
T:FORI=0TO96:READA:POKE52992 
+ 1,A :NEXT: RETURN 

760 DATA120,173,21,3,201,234,208 
,19 

770 DATAI 69,39,1 41 , 20,3,1 69,207, 

1 41 

780 DATA21,3,169,0,133,251,133,2 
52 

790 DATA76,37,207,169,49,141,20, 

3 

802 DATAI 69,234,1 41 , 21 , 3,88,96,1 
65 

804 DATA251 , 1 41 , 0,208,1 73,1 6,208 
,41 

806 DATA254,5,252,141,16,208,24, 

1 65 

808 DATA251,105,4,133,251,165,25 
2,105 

810 DATA0,133,252,240,12,165,251 
, 201 

812 DATA91,144,6,169,0,133,251,1 
33 

814 DATA252,165,162,74,144,8,173 
,24 

816 DATA208,73,2,141,24,208,76,4 
9 

818 DATA234 

840 POKE56334,PEEK(56334)AND254 : 
POKE1 ,PEEK(1)AND2 51 

841 FORI=0TO511:POKEl3312+1,PEEK 
(54272+1):POKE15360+1,PEEK(5 
4272+1):NEXT 

842 POKEl ,PEEK(1)OR4:POKE56334,P 
EEK(56334)ORI 

8 60 READA: IFA=- 1THENRETURN 
870 FORJ=0TO7:READB:POKECHSET+A* 
8 + J,B:NEXTJ:GOTO860 
880 DATA32,0,0,0,0,0,0,0,0 
890 DATA33,2,9,9,9,9,9,2,0 
900 DATA34,160,88,83,88,88,88,16 
0,0 

910 DATA35,12,3,16,196,195,63,3, 
3 
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920 DATA36,0,192,252,236,252,240 
,192,10? 

930 DATA37,3,35,131,139,139,171, 
35, 3 

940 DATA38,192,192,224,232,202,1 
94,194,200 

950 DATA39,64,80,84,85,85,85,85, 
85 

960 DATA40,1,5,21,85,05,85,85,85 

970 DATA41,0,102,219,36,126,137, 
66,60 

980 DATA42,0,15,0,51,63,15,15,3 
990 DATA288,0,0,0,0,0,0,0,0 
1 000 DATA289,2,9,9,9,9,9,2,0 
1010 DATA290,1 60,88,88,88,88,88, 
160,0 

1020 DATA291,12,3,0,192,195,63,3 
r 3 

1 030 DATA292,0,192,252,204,252,2 
40,192,192 


1 040 DATA293,3, 3, 35, 1 71 , 1 39,1 39, 
131,35 

1050 DATA294,192,200,194,194,202 
,232,224,192 

1 060 DATA295,64,80,84,85,85,85,8 
5,85 

1070 DATA296,1,5,21,85,85,85,85, 
85 

1 080 DATA297, 1 29,102,90,36,1 26,8 
2,36,24 

1 090 DATA298,0,15,0,48,63,3,15,1 
5 

1100 DATA43,1 53,21 9,231 , 255,90, 2 

4.36.66 

1110 DATA299,24,90,231,255,219,1 

53.36.66 

1120 DATA44,21 7,21 9,231 , 75,2,24, 

36.66 

1130 DATA45,216,225,235,69,7,2,4 

0,66 

1140 DATA46,192,192,145,3,67,1,7 
2,130 


1150 DATA47,192,128,8,1,1,0,16,1 
28 

1160 DATA300,21 7,21 9,247,99,22,2 
4,36,68 

1170 DATA301,216,225,227,71,23,1 

30,32,66 

1180 DATA302,192,200,129,3,131,1 
,64,130 

1190 DATA303,192,144,0,1,1,0,8,1 
28 

1200 DATA-1 

2000 POKE53281,0:PRINT" 

( 6 GIU'}{ 2 SPAZI}{RVS} 

{ 2 DES) { 2 DES} 

{ 2 SPAZI}{ 2 DES} 

{ 3 DES) {DES} { 2 DES} 
{DES} { 3 DES} {DES} 

{ 3 SPAZI} (DESI { 3 DES} " 

2010 PRINT"{ 2 SPAZI}{RVS} 

{ 2 DES} {DES} { 2 DES} 

{DES} { 3 DES} {DES} {DES} 

{ 2 DES} { 2 SPAZI}{DES} 

{ 2 SPAZI}{DES} { 3 DES} 

{ 2 SPAZI }{ 2 DES} " 

2020 PRINT'M 2 SPAZI}{RVS} 

{ 4 SPAZI}{DES}{ 4 SPAZI} 
{DES} {DES} {DES} {DES} 

{ 2 SPAZI}{ 3 DES) {DES} 
{DES} {DES}{ 3 SPAZI}{DES} 
{DES} {DES} {DES}" 

2030 PRINT'M 2 SPAZI1{RVS} 

{ 2 DES} {DES} { 2 DES} 

{DES} {DES} {DES) {DES} 

{DES} { 2 DES} { 3 DES} 

{DES} { 3 DES} { 2 DES} 

{ 2 SPAZI}" 

2040 PRINT'M 2 SPAZI}{RVS} 

{ 2 DES} {DES} { 2 DES} 

{ 2 DES} {DES} { 2 DES} 

{ 2 DES} {DES} { 3 DES) 

{DES}{ 3 SPAZI}{DES} 

{ 3 DES} { 3 Gl'J' )" 

2050 F0RZZ=1T0300:NEXT 

2160 RETURN 
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Demon star 


Joystick 


Una nave spaziate si è persa nell'universo: 
miriadi di asteroidi cercano di neutralizzarla 
per sempre. Cercate di evitare questa brutta 
fine pilotando la vostra nave con i seguenti 
tasti: 1= SU; — =GIÙ ; 2 = DESTRA: 
CTRL = SINISTRA; l a BARRA SPAZIATRICE 
spara. 


90 S = 54 2 72 :FOR I = 0TO2 8 :POKES+1,0 
: NEXT 

100 RESTORE 

110 POKE532 81 , 1 1 :POKE53280,11 :PR 
INT"{CLR}{WHT}ATTENDI UN ATT 
IMO MENTRE SISTEMO" 

120 PRINT"I CARATTERI..." 

130 POKE 56334,PEEK(56334)AND254 
:POKEl,PEEK(1)AND251 
140 IF PEEK ( 1 4934) 056 THEN FORI 
= 1 2 2 8 8 TO1 4 9 3 5:POKEl,PEEK(1 + 5 
3248-12288):NEXT 
150 FOR 1 = 1 2552T01 2679:READ A : PO 
KEI,A:NEXT 

160 POKEl ,PEEK(1)OR4:POKE56 3 34 , P 
EEK(56334)ORI 
170 DIMMX%(2,2) ,0% (4) 

180 K(1 )=3:K(2)=10:K (3)=13:K (4) = 
7 

190 PT=0:BB=1000:INPUT"LIVELLO ( 
1-10) { 3 DES}5{ 3 SIN}";SK: I 
FSK<1ORS K>1OTHENl90 
200 02 = 56321 :Dl=D0-3 :D2=D0-2 :CO = 
54272:C=40:R=24:SP=32:FL=0:R 

G= 1 0 
210 E=42 

220 FORI=0TO2:FORJ=0TO2:SP=SP+1: 

MX%(I,J)=SP:NEXTJ,I :SP= 32 
230 DEFFNA(W)=1024+X+C*Y:DEFFNB( 
W)=PEEK(FNA(W)):DEFFNR(W)=IN 
T(R^O(1)*W) 


240 PRINT" (CI.R) " 

250 POKE 53272,(PEEK(53272)AND24 

0 ) +1 2 

260 FORI=0TO3: 0%(I)=E:E=E+1:NEXT 
:K=1 :FORH = 0TO3:FORJ = 1TO(3*SK 
):GOSUB820 

270 POKERP ,Ot (H):POKERC,K(K):NEX 
TJ:K=K+1:NEXTH 

280 MC = 0 :MR=-1 :SX=3 :SY =24 :SH=198 
7 :POKESH,36 :POKESH+CD,3 
290 F0RI1=1T01 000: NEXT 


Colpendo gli asteroidi guadagnate energia: 
colpendo gli UFO che appaiono ogni tanto 
(emettendo un suono particolare) oltre a 
guadagnare energia ottenete in premio del 
tempo che vi permette di continuare il gioco. 
Occhio agli impatti. 


300 PRINT"{HOME}{WHT}{RVS}"PT" 

{BLU}":IFFL= 0ANDFNR(10) = 3THE 
N750 

310 IFFL= 2THENPRINT"{HOME} {RVS} 
{GIU'}{CYN}";RICHT$(TI$,2);" 
{BLU}": IFTI>1 000THEN84 0 
320 GOSUB720 :1FFBTHENX=SX:Y=SY:P 
X = MC:P Y= MR: GOTO 4 60 
330 U = 0:W=0:IFJ0THENU=1 
340 IFJ 2THENU=-1 
350 IFJ1THENW=1 
360 IFJ 3THENW=-1 
370 IFU=0ANDW=0THENU=MC:W=MR 
3 80 MC = U:MR=W: SX=SX+MC : SY=SY+MR: 

IFSY< 0THENSY= R 
390 IFSY>RTHENSY=0 
400 IFSX>39THENSX=0 
410 IFSX< 0THF.NSX= 39 
420 X=SX:Y=SY:J=FNB(0):1FJ<48AND 
J> 41THENFL=1 :GOT05 70 
430 POKESH,SP:POKESH+CD,0:SH=FNA 
(0) :POKESH,MX^(MC+1 ,MR+1) : PO 
KESH+CD,3 

440 IFFL02THENPRINT" {HOME} 

{GIU*}{BLK}{ 3 SPAZI}{BLU}" 
450 GOTO300 

460 FORI=1TORG:X=X+PX:Y=Y+PY 
470 IFI<>1THENPOKET,SP:POKET+CD, 
0 

480 IFX> 39THENX=0 
490 IFX< 0THENX= 39 
500 IFY>RTHENY=0 
510 IFY< 0THENY=R 
520 J=FNB(0) : IFJ = SPTHEN540 
530 IFJ<48ANDJ>41THENI = RG:NEXTI : 
GOTO570 

540 T=FNA(0) :POKET,37 :POKET+CD,1 
:POKEV,0 :FORH = 1T02 5 :NEXTH: NE 
XTI 

550 POKET,SP:POKET+CD,0:1FPEEK(R 
P) =4 7THENREM 
560 GOTO300 

570 L= FNB(0) :XP = FNA(0) : IFFL=1 THE 
N620 
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580 IFL= 47THENPT= PT+500:FL=0:RG= 
10:GOTO620 

590 IFL< 4 6ANDL> 41THENPT=PT+((L-4 
1) *5) 

600 IFL=46THENPT=PT+1 00:FL=0 
610 IFPEEK(RP)=47THEN640 
620 POKEXP,58 :POKESP+CD,1 
630 FORM=l5TOOSTEP-1:F0RN=lT025: 
NEXTN,M 

640 FORM=lT03:POKEXP,58:POKEXP+C 
D , 1:F0RN=1T025:NEXTN:POKEXP, 
SP:POKEXP+CD,0 

650 FORN=1T025:NEXTN,M: IFFL= 1 THE 
N680 

660 IFPT>BBTHEN790 
670 POKET,32 :POKET+CD,0 :GOTO300 
680 IFPT<0THENPOKE 53272,21 :PRIN 
T"{CLR}{BLK}(WHT}ENERGIA PER 
SA: ";PT:GOTO700 
690 POKE 53272,21 :PRINT"{HOME} 

{BLK}{WHT}NAVE DISTRUTTA.":P 
RINT"ENERGIA TRASMESSA: ";PT 

700 POKE 198,0:INPUT"{ 3 GIU'}GI 
OCHI ANCORA?{SPAZI}(S/N) 

{ 3 DES}S{ 3 SIN}A$:IFA$=" 
S"THENl90 
710 END 

720 P=255-PEEK(56321):J0=-((PAND 
8) =8) 

730 J1=-((PAND2)=2):J2=-((PAND4) 
= 4) 

740 J3 = -((PANDI)=1):FB = -((PANDI 6 
)=16) : RETURN 

750 GOSUB820:IFRPCl068THENGOSUB3 
000 :POKERP,47:POKERC,1 :GOSUB 
870:RG=6:GOTO770 
760 GOSUB2000:POKERP,46:POKERC,1 
770 FORH=1T0200 :NEXT 
780 FL=2:TI$="000000":GOTO310 
790 POKE 53272,21:PRINT"{CLR} 

{YEL}BONUS 100":FORH=lTOl000 
:NEXT:POKE53272,28 
800 PT=PT+100 :BB=BB+1 000 :IFPT>30 
00ANDSK<8THENSK=SK+1 
810 GOTO200 


820 X=FNR(C):Y=FNR(R):IFFNB(0)<> 
SPTHEN820 

830 RP=FNA(0):RC=RP+CD:RETURN 
840 IFPEEK(RP)=47THEN680 
850 POKERP,SP:POKERC,0:PT=PT-500 
:IFPT<0THEN680 

860 PRINT"{HOME){BLK}{ 6 SPAZI} 

":FL=0:GOTO300 


870 RETURN 

880 DATA 128,126,121,112,104,68, 
64,32 

890 DATA 6,8,16,252,252,16,8,6 
900 DATA 32,64,68,104,112,121,12 
6,128 

910 DATA 24,24,24,24,60,90,153,1 
29 

920 DATA 0,0,36,24,24,36,0,0 
930 DATA 129,153,90,60,24,24,24, 
24 

940 DATA 1,126,158,14,22,34,2,4 
950 DATA 96,16,8,63,63,8,16,96 
960 DATA 4,2,34,22,14,158,126,1 
970 DATA 128,82,164,80,21,170,21 
,34 

980 DATA 24,60,98,73,93,89,50,4 
990 DATA 0,42,28,62,28,42,0,0 
1000 DATA 0,112,152,188,189,25,1 


4,0 

1010 DATA 60,66,129,153,153,129, 
66,60 

1020 DATA 56,16,84,254,84,16,56, 
0 

1030 DATA 162,116,124,56,60,106, 
81,144 

2000 REM SOUND WHEN DEATH STAR A 
PPEARS 

2010 POKE 54296,15 
2020 POKE 54277,20 
2030 POKE 54278,175 
2040 POKE 54276,33 
2050 FORI=1T07:POKE 54273,RND(l) 
*2 56 :NEXT 

2060 POKE 54276,32 
2065 POKE 54296,0 
2070 RETURN 

3000 GOSUB2000 : GOTO 820 
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L’invasione dei 
Cyen 


L'invasione dei Cyon è un gioco d'azione per 
il VIC 20 e il C64 nel quale voi avete il compi¬ 
to di salvare la terra dalle mire imperialiste 
dei Cyon. 

Utilizzando il joystick dovete intercettare le 
navi dei Cyon prima che atterrino. Con il joy¬ 
stick dovete muovere sullo schermo il piccolo 
mirino a forma di croce fin sopra la nave da 
abbattere e premere il pulsante di fuoco. 
Avete a disposizione solo 7 colpi per nave. 
Ogni volta che riuscite a distruggere una na¬ 


100 CO = 54 212 : FORT=COTOCO+ 2 4 :POKE 
T, 0 :NEXT 

110 POKE53280,0:POKK532 81 , 1 :VS = " 
SECONDI" 

120 PRINT"{CLR}{ 7 GIU’}"TAB(9)" 
{RVS} {RED}L' INVASIONE DEI C 
YON{OFF}" 

130 PRINT"{ 2 GIU'}"TAB(11)" 
{BLU}(JOYSTICK --> #2)" 

140 PRINT" { 5 GIU’H 6 DES} A CHE 
LIVELLO GIOCHI (1-6)?" 

150 GETAS: IFAS <"1"ORAS >"6"THENl5 
0 

160 D=VAL(AS):SC=1024 

170 POKECO + 2 4,15:POKECO + 5,17 :POK 
ECO+6,248:POKECO,100 

180 BG=1 

190 POKE53281 , 1 :PRINT"{CLR}":POK 
E532 81 , 0 .-PRINT" {CYN} "BG: TI$ = 
"000000" 

200 LK=INT(RND( 1 ) * 1 50)+SC 

210 FORI = 1TOl 0:0=1 064 + INT(RND( 1 ) 
*520) :POKEO,46:POKEO+CO,1 : NE 
XT 

220 POKE1154,81 :POKEl154 +CO,1 

230 PRINT"{ 13 GIU'}" 

240 PRINT"{GRN}{ 6 GIU'}N 

[< 2 T>1{SU}{SIN}{RED}X{GRN} 
{GIU 1 } [<T>}ri{GIU' } M { < 2 @>] 
n{su}n{su}nT< 2 T>T{SU}N{SU} 
N[< 2 _ T>]mTgIU'}M{GIU’}M 
Tgiu*}M{GIU’}M[< 7 @>]nTsu} 

N{SU}NM{GIU'}M[< 2 @>]N{SU} 

N{SU}N[<T>]" 

2 50 PRI NT 77 } 21 DES} N{ SU} [ <G> ] 

{SU}fSTN'r<«>]NT< 2 T>]{SU} 


joystick 


ve, sul video appaiono il numero di colpi uti¬ 
lizzati ed i secondi impiegati. 

In principio le navi scendono una alla volta, 
ma dopo la sesta i Cyon attaccano in massa 
mandando due navi alla volta. 

Se riuscite a superare l'undicesimo schermo 
la terra è salva, altrimenti, dopo che tre navi 
sono riuscite ad atterrare, la terra viene in¬ 
vasa. 

I livelli di difficoltà sono 6, da semplice a im¬ 
possibile. 


{SIN}{BLU}-{GRN}{GIU'}[<T>] 
M[<@>]{GIU*}{SIN}[<M>1{GIU’} 
M" 

2 60 POKEl 76 9,87:POKEl 76 9+CO,4:PO 
KEl 887,1 24 :POKEl 887+CO,5 
270 FORI = 1 890TO1 887STEP-1 :POKF,I + 

1 , 32:POKEI + CO+l ,0 :POKEl,124 : 
POKEI+CO,5 

2 80 FORJ=1T0200 :NEXTJ,I 
290 J=0:K=0 

300 X=20:Y=1 2:TH=0:S1=0:A=32:Al = 
32:A2=32 

310 FORW= 1 T03: FORI = 10TO2 0 0STEP10 
:POKECO+1 ,I :POKECO+4,33:FORJ 
= 1TOl0 :NEXTJ,I,W 
320 PRINT"{HOME}{GIU'} 

{ 4 SPAZI}" 

330 POKECO+4,32 
340 S=1524 
350 POKES,A 

360 P=PF,EK (56320) ANDl 5:Y = Y+( (PAN 
Di)=0)-((PAND2)=0):X=X+((PAN 
D4)=0)-((PAND8)=0) 

3 70 FR = PEEK(56320) ANDl6 :IFX<0THE 

NX=39 

380 IFY<0THENY=0 
390 IFX> 39THENX= 0 
400 IFY> 2 4THENY= 2 4 
410 IFLK>1983THEN610 
420 C=C+1:IFFR=0THENTH=TH+1 
430 POKELK+CO+PO,D1 :IFA1<>43THEN 
POKELK+PO,Al 

440 IFBG>6ANDJ <>1THENPOKELK+CO+P 
0+6,D2: IFA2< > 4 3THENPOKELK+PO 
+ 6, A2 

4 50 TFFR = 0 ANDTH< = 7THENGnÉnBl0 30 
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4 60 PO-INT(RND(1)*D)+1 :IFTH>7THE 

NFR = 1 

470 POKEOS,32:NS=1064+INT(RND(1) 
*520):POKENS,46:OS=NS 
480 S=SC+X+Y*40 

490 A= PEEK(S) :POKES,43:1FC= 2THEN 
LK=LK+40:C=0 

500 Al=PEEK(LK+PO): DI=PEEK(LK+po 
+CO) 

51 0 IFBG>6ANDJ<>1 TMENA2 = PEEK (LK+ 

PO+6):D2=PEEK(LK+PO+CO+6) 

52 0 IFS1< >1THENPOKELK+PO+CO,7 : PO 

KELK+PO,90 

5 30 A$ = "COLPI":IFTH=1THENAS = "COL 

PO" 

540 PRINT"{HOME}{BLU}";:IFS=LK+P 
OANDFR= 0THEHPRINTTH;A$:PRINT 
RIGHT$(TIS ,2)V$: GOTO910 
550 IFBG>6ANDJ<>1THENPOKELK+PO+C 
0+6,7:POKELK+PO+6,90 
560 IFBG>6ANDJ <>1ANDS=LK+PO+6AND 
FR=0THENPRINTTH ; A$:PRINTRIGH 
TS(TIS,2) ; :GOSUB860 
570 IFPEEK (1 769) =87THENPOKF.l 769, 
81 :POKEl 76 9+CO,4 : GOTO590 
580 POKEl 769,87 :POKEl 769+CO,4 
590 IFJ=1ANDS1=1THENBG=BG+1:GOTO 
1 040 

600 POKESC+QW,32 :QW=INT(RND(1)*3 
60)+80 :POKESC+QW,46:GOTO3 50 
610 JH=JH+1:IFJH<3THEN190 
620 POKECO+1,10:POKECO+4,129 
630 FORI = 0TOl 5 : FOR J = 0TOl 5:POKF.53 
280,I :POKES3281 ,J:NEXTJ,I 
640 POKE53280,0 :POKE53281 ,0 
650 POKECO+4,128 
660 PRINT" {CLR} { 5 GIU'HCYN) 

{ 6 DES}HAI RESISTITO A :"BG- 
1 "ATTACCHI.{ 7 GIU’}" 

670 ONBGGOSUB730,740,750,760,770 
,780,790,800,810,820,830 
680 PRINT"{YEL}{ 5 GIU'} 

{ 9 DES}GIOCHI{ 2 SPAZI}ANCO 
RA (S/N)?" 

690 GETAS: IFA$ = ""THEN690 
700 IFAS = "S"THENRUN 
710 IFA$="N"THENEND 
720 GOTO690 

730 PRINT"{PUR}{ 12 DES}E' UNA D 
ISGRAZIA":RETURN 

740 PRINT"{PUR}{ 7 DES}NON TROPP 
O BUONO, CAPORALE": RETURN 
750 PRINT"{PUR}{ 11 DES}BRAVINO 
, SERGENTE":RETURN 
760 PRINT"{PUR}{ 9 DES}CONTINUA, 
SOTTOTENENTE": RETURN 
770 PRINT"{PUR}{ 9 DES}TU 

{ 2 SPAZI}ORA SEI UN TENENTE 
" : RFTI’PN 


780 PRINT"{PUR}{ 9 DES}TU ORA SE 
I UN CAPITANO": RETURN 
790 PRINT"{PUR}{ 9 DES}TU ORA SE 
I UN MAGGIORE": RETURN 
800 PRINT"{PUR}{ 8 DES}TU ORA SE 
I UN COLONNELLO":RETURN 
810 PRINT”{PUR}{ 9 DES}TU ORA SE 
I UN GENERALE": RETURN 
820 PRINT"{PUR}{ 5 DES}SEI IL CO 
MANDANTE DELLA FLOTTA": RETUR 
N 

830 PRINT"(PUR}{ 7 DES}BUONGIORN 
O STG. PRESIDENTE":RETURN 

840 PRINT’MCLR} {YEL) { 8 GIU'} 

{ 2 DES}HAI SALVATO LA TERRA 
DAGLI ALIENI!!!{ 7 GIU’}" 
850 GOTO680 

860 FORF=1T03:FORL=150TO100STEP- 
1 :POKECO+1,L:POKECO+4,17:NEX 
T:NEXT:POKECO+4,16 
870 PRINTVS:POKELK+PO+CO+6,1 :POK 
ELK+PO+6,43 

880 FORZ = 4 OTOLK-SCSTEP40 :G= PEEK( 
LK+PO-Z+6):G1=PEEK(LK+PO-Z+C 
0+6) 

890 POKELK+PO-Z+CO + 6,7 : POKELK+PO 
-Z + 6,90 :FORH=1TO70:NEXT:POKE 
LK+PO-Z+CO+6,Gl 

900 POKELK+PO-Z+6,G:NEXT:TH=0:J= 
1 : RETURN 

910 IFBG>6ANDJ<>1THENPOKELK+PO+C 
0+6,7:POKELK+PO+6,90 
920 SI=1 

930 FORT=1T03:FORTY=100TO150:POK 
ECO+1,TY:POKECO + 4,17:NEXT: NE 
XT:POKECO+4,16 

940 SI=1 :POKELK+PO+CO,1:TH=0:POK 
ELK+PO,43 

950 FORZ = 4 0TOLK-SCSTEP4 0 :G= PEEK( 
LK+PO-Z):G1=PEEK(LK+PO-Z+CO) 

960 POKELK+PO-Z+CO,7 :POKELK+PO-Z 
,90 :FORH=1TO70:NEXT:POKELK+P 
O-Z+CO,G1 

970 POKELK+PO-Z,G:NEXT 
980 IFBG<7THENBG=BG+1:GOT0190 
990 IFJ=1ANDS=1THENBG=BG+1:IFBG< 
12THEN190 

1000 IFJ = 1 ANDS = 1ANDBG=12THEN84 0 

1010 GOTO550 

1020 REM FIRE NOISE 

1030 POKECO+1,200:POKECO+4,129:P 
OKECO+4,128 :FORT=1TOl00:NEX 
T:RETURN 

1040 IFBG<=11THEN190 
1050 GOTO840 
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Rubrica 

indirizzi 


Unità disk drive 


La versione qui presentata di questo utile 
programma è stata scritta per il C64 con 
floppy disk, ma con pochisssimi cambiamen¬ 
ti la potrete adattare al registratore a casset¬ 
te od addirittura al VIC 20 espanso. 

Il programma serve a crearsi un indirizzario 
elettronico, e contiene anche una opzione di 
stampa per etichette postali. Scegliendo le 
varie opzioni contenute nei menu, potrete in¬ 
trodurre nuovi dati, modificarne altri, salvarli 
per intero su memoria di massa e richiamarli 
in un secondo tempo. 

100 C = 53280 : REM C64 MAILING LIST 
PER SISTEMA A DISCHI 
110 POKEC,5 :POKEC+1,5:READR$ , R: F 
ORI = 1TOR:READO$(I) :NEXT: DATA 
"C64{ 2 SPAZI}MAILING 
{ 2 SPAZI}LIST" 

120 DATA8,"NOME(PRIMA IL COGNOME 
)","VIA","CITTA’","P ROV. ", " C 
ODICE" 

130 DATA"TELEF.CASA NO.","NOME A 
ZIENDA","TELEF.UFF. NO." 

140 PRINT"{CLR}{BLK}{ 9 DES} 

[<A>] { 19 *} [<S>]":PRINT" 

{ 9 SPAZI}B "R$"-" 

150 PRINT"{ 9 DES} [ < Z >] { 19 *} 
[<X>] 

160 PRINT"{GIU'} 1. AGG.NOME":PR 
INT"{GIU '} 2. ELIMINA" 

165 PRINT"{GIU'} 3. CERCA ":PRIN 
T"{GIU'} 4. ESAMINA" 

170 PRINT"{GIU'}{SPAZI}5. CAMBIA 
":PRINT"{GIU 1 } 6. REGISTRA" 
175 PRINT"{GIU'} 7. OPZIONE STAM 
PA":PRINT"{GIU 1 } 8. FINE" 

180 RESTORE:PRINT"{ 2 GIU'JCOSA 
SCEGLI?" 

190 GETAS:IFA$=""THEN190 
200 IFA$<"1"ORA$>"8"THENl90 
210 READBS:IFB$<>"[<->]"THEN21 0 
220 A=VAL(A$):ONAGOTO240,290,320 
,420,490,500,520,510 
230 POKEl98,10:FORI=0TO9:POKE631 
+ 1,13:NEXT: END 

240 READA$:IFA$<>"[<X>]"THEN240 
250 READA:PRINT"{CLR}INPUT 0 PER 
SCONOSCIUTO{GIU’}" 


£ stata usata una particolare tecnica di pro¬ 
grammazione si automodifchi aggiungendosi 
in coda delle nuove linee DATA contenenti i 
nuovi dati che man mano inserite. Queste 
nuove linee DATA compariranno per pochi 
secondi sullo schermo dopo che abbiate inse¬ 
rito i nuovi dati, e quindi il programma ri¬ 
prenderà l'esecuzione. È inoltre compresa 
un'utilissima funzione di ricerca che vi per¬ 
mette di ottenere tutte le informazioni relati¬ 
ve ad un nominativo, solo comunicandone il 
cognome al computer. 


260 PRINT"RECORD : "A"{GIU 1 }":FO 

RI=1TOR:PRINTOS(I):INPUTWS(I 
):PRINT:IFWS(1)=""THENl40 
270 NEXT:W$(0) ="XX"+CHR$(34)+"," 
+ STR$(A) :Z=A* 1 0+91 0 :K=0:PRIN 
T"{CLR}{ 2 GIU'}" 

280 FORI=ZTOZ+R:PRINTI;"DATA"CHR 
$(34)W$(K):K=K+1:NEXT:PRINT" 
RUN{HOME}": GOTO2 30 
290 B$="":PRINT"{CLR}QUALE RECOR 
D DA ELIMINARE":INPUTB$:IFVA 
L(B$)=0THEN140 

300 PRINT"{CLR}{ 2 GIU'}":Z=VAL( 
B$) *10+910 :PRINTZ"DATA"CHR$( 
34)"[<X>]"CHR$(34)","VAL(B$) 

310 FORI = Z + lTOZ + R:PRINTI :NEXT:PR 
INT"RUN{HOME}":GOTO230 
320 INPUT"{CLR}RICERCA DI ";B$ : I 
FB$=""THENl40 
330 H=0:READA$ 

335 IFA$ = "END"THENPRINT"{CLR} 

{DES}{GIU'}CAMPO NON TROVATO 
":FORT=OTO 2000:NEXT:GOTOl40 

340 IFA$ = "[<X>]"THENREADA:GOT033 
0 

350 READA:FORI=lTOR:READA$(I):IF 
LEFTS(A$(I),LEN(B$))=B$THENH 
= 1 

360 NEXT:IFH=0THEN330 
370 PRINT"{CLR}RECORD :"A" 

{ 2 GIU'}":FORI=lTOR:PRINT" 

{ 2 SPAZI}"A$(I):NEXT:IFW=1T 
HENRETURN 


99 


380 PRINT"{ 2 GIU'}PREMI UN TAST 
0 " 

390 GETA$:IFA$ = ""THEN390 
400 IFQ=1THENRETURN 
410 GOTOl40 

4 20 A$ = "": INPUT"{CLR}QUALE RECOR 
D";A$:A=VAL(A$):IFA$=""0RA<1 
THENl40 

430 READA$:IFA$="END"THENl 40 
440 IFA$O"XX"THEN430 
450 READA$ : IFAOVAL( A$) THEN430 
460 READA$(1):IFA$(1)=" [<X> ]"THE 
NI 40 

470 FORI=2TOR:READA$(I):NEXT:Q=1 
:GOSUB370:Q=0:IFW=1THENRETUR 
N 

480 GOTOl40 

490 W=1:GOSUB420:W=0:PRINT" 

{HOME}{ 2 GIU’}":FORI=lTOR:I 
NPUTW$(I):GOTO270 
500 PRINT"{CLR}":SAVE"@0:"+R$ , 8 : 

END 
51 0 END 

520 PRINT"{CLR}{ 2 GIU'JtRVS} 

{ 3 SPAZI}OPZIONI STAMPANTE 
{ 3 SPAZI}" 

530 PRINT"{GIU 1 }{RVS}1 {OFF} LIST 
A TOTALE" 

540 PRINT"{GIU'}{RVS}2{OFF} ETIC 
HETTE POSTALI" 

550 PRINT"{GIU'}{RVS}3{OFF} DATI 
INDIVIDUALI" 

560 PRINT"{GIU'}{RVS}4{OFF} ETIC 
HETTA SINGOLA" 

570 PRINT"{GIU'}{RVS}5{OFF} RITO 
RNO AL PROGRAMMA" 

580 GETZ$:IFZ$=""THEN580 
590 Z=VAL(Z$) 

600 IFZ<1ORZ>5THEN520 
610 OPENl,4 :RESTORE 
620 ONZGOTO640,740, 81 0,81 0 
630 CLOSEl:GOTOl40 
640 READB$:IFB$<>"[<->]"THEN640 
650 READB$:IFB$="[<X>]"THENCLOSE 
1 :GOTOl40 

660 IFB$="XX"THENREADA:PRINT#1,C 
HR$(10)CHR$(10)"RECORD"; A :GO 
SUB690:GOTO650 
670 PRINT#1,B$ 

680 GOTO650 
690 READB$: FORI = 1TO50 
700 IFMID$(B$,I,1)=" "THENX=I:I= 
50 


710 NEXTI 

720 N2$ = LEFT$(B$,X): NI$=RIGHT$(B 
$,LEN(B$)-X):PRINTil 
730 PRINT#!,Ni $ ;" ";N2$:RETURN 
740 READB$:IFB$<>"[<->]"THEN740 
750 READB$:IFB$="[<X>]"THENCLOSE 
1 :GOTOl40 

760 IFB$<>"XX"THEN750 
770 READA:PRINT#1,CHR$(10):GOSUB 
690:GOSUB780:GOTO750 
780 FORI=lT04:READA$(I):NEXT 
790 PRINT#1,A$(1):PRINT#1 , A$( 2) ; 
", ";A$(3);"{ 3 SPAZI}";A$(4 
) 

800 RETURN 

810 INPUT"{CLR}{GIU'}QUALE RECOF 
D";Q:RESTORE 

820 READB$:IFB$<>"[<->]"THEN820 
830 READ B$ 

840 IFB$="[<X>]"THENPRINT"NON ES 
ISTE NEL FILE":FORX=OTOl 500 : 
NEXTX:CLOSEl: GOTO 140 
850 IFB$="XX"THENREADA:IFA=QTHEN 
870 

860 GOTO830 

870 PRINT#1,CHR$(10)CHR$(10)"REC 
ORD";A:GOSUB690 
880 IFZ=4THEN900 

890 FORX=1TO R-1 :READB$:PRINT#1, 
B$:NEXT:CLOSEl:GOTO520 
900 GOSUB780rCLOSEl:GOTO520 
910 DATA"[<->]" 

920 DATA"XX",1 

921 DATA"ROSSI MARIO 

922 DATA"VIA DEI GIARDINI 12 

923 DATA"SESTO SAN GIOVANNI 

924 DATA"MILANO 

925 DATA"20099 

926 DATA"02-23456789 

927 DATA"PACK SOFTWARE 

928 DATA"02-98765431 
950 DATA"[<X>]", 2 
960 DATA"[<X>]", 3 
970 DATA"[<X>j",4 
980 DATA"[<X>]", 5 
990 DATA"[<X>]",6 

1000 DATA"[<X>]",7 
1010 DATA"[<X>]" ,8 
1020 DATA"[<X>]",9 
1030 DATA"[<X>]",10 
1040 DATA"END" 
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Super 

Directory 


Unità disk drive 


Super Directory è una preziosa utility che mo¬ 
stra sul video la directory di un disco e per¬ 
mette mediante l'uso dei tasti cursore di sele¬ 
zionare caricare e lanciare ogni programma. 
Esistono ancora moltissime persone che di 
computer hanno poco esperienza o addirittu¬ 
ra non ne hanno per cui scrivendo programmi 
bisogna pensare che forse potrebbero essere 
utilizzati anche da qualcuno di queste perso¬ 
ne ed allora bisogna rendere comodo il loro 
uso. 

Un modo di fare questo è quello di utilizzare 
programmi particolari che mostrano un menu 
di programmi contrassegnati da un numero, 
l'utente deve scegliere ciò che gli interessa 
battendo il numero corrispondente. 

Il "SUPER DIRECTORY" è un programma che 
permette di agire su un menu di programmi 
presenti sul disco mediante l'uso dei cursori 
provvedendo poi al caricamento ed al lancio 
automatico del programma selezionato. 

Il programma gira sul VIC 20 sul C64 e sul PET 
con i dischi COMMODORE (1541/4040 e 
2040) per l’utilizzo del drive 8050 sul PET e 
sul C64 è necessaria una piccola modifica al 
programma. 

È utile mettere il programma all'inizio di ogni 
disco. 

Se un disco contiene già altri programmi allora 
bisogna copiare (con il comando COPY) il pri¬ 
mo programma sullo stesso disco con un altro 
nome, poi salvare il "SUPER DIRECTORY 
usando lo stesso nome del programma in pri¬ 
ma posizione con il comando di SAVE & RE¬ 
PLACE. A questo punto bisogna nsistemare t 
nomi con il comando RENAME. 

ESEMPIO 

Se abbiamo su un disco i seguenti programmi 
I ) alfa 

2) beta 

3) gamma 

Procediamo così si copia alfa con il nome del¬ 
la 

OPEN 15 8 15 PRINT **/ 5. "COPY 0 


delta=0: alfa": CLOSE 15 e si ha la seguente 
situazione: 

I ) alfa 

2) beta 

3) gamma 

4) delta 

Ovviamente si ha delta = alfa 
A questo punto si deve caricare il SUPER DI¬ 
RECTORY" e fare SAVE "0: alfa" 

Ora basta cambiare in SUPER DIRECTORY il 
nome alfa ed in alfa il nome delta per ottene¬ 
re 

1) SUPER DIRECTORY 

2) beta 

3) gamma 

4) alfa 

Una volta che il SUPER DIRECTORY è corret¬ 
tamente sistemato sul disco per caricarlo e 
farlo partire è sufficiente un semplice (Shift 
RUN) (sul PET). Per chi non usa il SUPER DI¬ 
RECTORY sul PET ma sul VIC o sul C64 è ne- 
cessano caricarlo con LOAD' ’ , 8 e poi farlo 
partire con RUN. 

La tecnica spiegata va bene se il disco Non si 
è ancoro utilizzato, se cioè non sono ancora 
state fatte operazioni di LOAD o SAVE da 
quando il computer è stato acceso. 

Nel caso contrario bisogna usare LOAD"S'". 
8 che m ogni caso va sempre bene. 

Funzionamento 

II programma leggerà tutta la directory del di¬ 
sco e la mostrerà sul video. 

La prima opzione del MENU è PROSSIMA PA¬ 
GINA che serva per vedere gli altri programmi 
nel caso che in una unica pagina non ci siano 
stati tutti. Se si sceglie la opzione PROSSIMA 
PAGINA quando non vi sono più pagine di 
programmi allora si accede a 3 nuove opzioni 
VEDERE UN ALTRO DISCO. RIPARTIRE. 
USCIRE DAL PROGRAMMA 
Quando appare il MENU l'opzione seleziona 
ta in quel momento è riversata (in partenza si 
vede in reverse l'opzione PROSSIMA PAGINA) 
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Per selezionare un programma è sufficiente 
spostarsi con i cursori sul suo nome, ovvia¬ 
mente premendo ppi RETURN per caricarlo e 
lanciarlo. 

Mano a mano che ci si sposta il nome del pro¬ 
gramma attualmente selezionato viene rever¬ 
sato 

LINEE DA INSERIRE NEL PROGRAMMA PER 
IL PET ED IL C64 SE SI USANO I DISCHI 8050 

2040 FO = ASC (INS): IF (FOAND3)= 3 THEN 


0 GOTOIOOO 

1 GETZ$:IFZ$=""THEN1 

2 RETURN 

10 INPUT#15,ER,ER$:IFER=OTHENRET 
URN 

20 PRINT"DISK ERROR #"ER:PRINT E 
R$: END:RETURN 

100 PRINT"{HOME}{ 3 GIU'}":FORI= 
0TO15 :FORJ=OTONC:PRINTTAB(J* 
20); V$(I+J*l6); 

110 NEXTJ:PRINT :NEXTI 
120 POKEXB,0 :RL=0:CL= 0 :GOSUB600 
130 FORI = OTOlSTEPO:GOSUB1 :Z =ASC( 
Z$) :TC=CL:TR=RL:FORJ = OTOl STE 
PO 

140 IF (ZANDl 27)=29THENCL=(CL+1+2 
*(Z=157))ANDNC 

150 IF(ZANDl 27)=17THENRL=(RL+1+2 
*(Z = 1 45) ) ANDl 5 
160 IFZ=13THENI=1 
170 IFV$(RL+CL*16)<>B$THENJ=1 
180 NEXT: IF (TCOCL) OR (TRORL) THE 
NGOSUB500 
190 NEXT:RETURN 

500 POKEXA,TR+3:PRINT:PRINTTAB(T 
C* 2 0) ;V$(TR+16*TC) 

600 POKEXA,RL+3:PRINT:PRINTTAB(C 
L*20) ;"{RVS}";V$(RL+16*CL):R 
ETURN 

900 FORI=1TONV:V$(I)=B$:NEXT:RET 
URN 

1000 PRINT" { 2 HOME} {CLR}":GOSUB 
6000 

1010 NC=1 :IFPEEK(213)=79THENNC = 3 

1 020 NV=(NC +1)*16-1 :GOSUB2000 :B$ 
="{ 19 SPAZI}":DIMV$(NV) 
1100 NP = 0 :SL=1 :V$(0)="PROSSIMA P 
AGINA":PRINT"{CLR}{GIU'} 

{RVS}"HE$ 

1110 SL=SL+NP:NP=MA-SL+1:IFNP>NV 
THENNP=NV 

1120 IFNP = 0THEN3 000 


2100 

2100 HE$= MIO S (INS, 5,16)+ ", 8050 
FORMAT" 

2110 SYS 896SYS 896 
2120 SE= 28 

ATTENZIONE 

Il programma per PET/C64 considera l'unità a 
dischi col numero 8 ed il DRIVE col numero 0, 
eliminando la linea 2910 c'è la possibilità di 
selezionare i numeri di unità e drive diretta¬ 
mente su richiesta del programma. 

1130 GOSUB900 : FORI = 1TONP:V$(I)=P 
R$(SL+I-1):NEXT 

1140 GOSUBl00 :IFCL+RL=0THEN1110 
1150 GOT05000 
2000 GOSUB2900:MA=0 
2010 OPENl5,UN,15,"I"+DR$:GOSUBl 
0 

2020 OPENl,UN,3,"S"+DR$ 

2030 SYS896 

2040 FO=ASC( IN$ ) :IF(FOAND3)=1 THE 
N21 00 

2050 CLOSEl:CLOSEl5:PRINT"BAD DI 
SK FORMAT":END 
2100 HE$=MID$(IN$,143,16) 

2110 IFF0>1THENSE=18:HE$ = HE$ + ", 
1541/4040 FORMAT":G0T02200 
2120 IFF0=1THENSE=19:HE$=HE$+", 
2040 FORMAT" 

2200 DIMPR$(SE* 8) : FORI = 1TOSE :SYS 
896 

2210 FORJ = 1T02 54STEP32 :A = ASC(MIO 
$(INS,J))ANDl27 

2220 IFA=2THENMA=MA-cl : PRS (MA) = M1 
0$ ( INS,J+3,16) 

2230 NEXTJ 

2240 IFSTTHENI=SE 

2250 NEXTI 

2260 CLOSEl :CLOSEl5 : RETURN 
2900 UN=8:DR=0:DR$="0" 

2910 RETURN 

2920 PRINT"UNITA' #{ 2 SPAZI}";U 
N;: INPUT"{ 4 SIN}";UN 
2930 PRINT"DRIVE #{ 2 SPAZI}";DR 
; : INPUT"{ 4 SIN}";DR:IFDR*( 
DR-1)THEN2930 
2940 DR$=STR$(DR): RETURN 
3000 GOSUB900:PRINT"{CLR}{GIU'}N 
ON VI SONO ALTRI PROGRAMMI. 
OPZIONI : 

3020 VS(0)="ALTRO DISCO":V$(2)=" 
RIPARTIRE ":V$(4)="USCIRE" 
3030 GOSUBl00:IFRL=0THENRUN 
3040 IFRL=2THENl100 
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3050 PRINT"{CLR}":END 
5000 PRINT"{CLR) { 2 GlU’ }LOAD" ; C 
HR$(34) ;V$(RL-t-1 6*CL) ;CHR$(3 
4) ;","; UN :P RINT"{ 4 GIU’lRU 
N{HOME}"; 

5010 IFXA= 214THENPOKE6 31 ,13:POKE 
632,1 3:POKEXB,2 : END 
5020 POKE623,13:POKE624,13:POKKl 
58,2 : END 

60 00 IN$ = "ZZ": FORI = 1T06:IN$ = IN$ + 
INS:NEXT 

6010 INS=MID$( IN3,2) :IN$=IN$+IN$ 
6020 IFPEEK (65535) =■ 2 55THENXA = 2 1 4 
:XB=198:GOTO6040 


6030 XA= 216 :XB=158 

604 0 FOR 1 = 8 96T092 9 : RF.AOX0 : IFLEFT 
$(X$,1)<>"A"THEN6060 
60 50 X$=STR$ ( VAL ( RI GHT$ (X$ , LF.N (X 
$) - 1 ) ) -t-3* (XA= 21 6) ) 

6060 POKEI,VALIX$):NEXT 
6070 RETURN 

60 80 DATAI 60,2,177,A4 5,153,Al 37, 
0,200,192,6,208,246,162 
6090 DATAI,32,198,255,32,228,255 
, 164,Al 42,145,Al 40,200 
6100 DATAI 32,Al 42,196,Al 39,208,2 
42,76,204,255 
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Vn make-up 
per i listati 


Unità disk drive 


Questo programma, usabile con tutte le mac¬ 
chine Commodore — dal VIC 20 alla sene PET 
- vi permetterà di ottenere dai vostri dischi 
dei listati su carta con una codifica del tutto 
simile a quella da noi usata per la pubblica¬ 
zione dei nostri programmi. Nei dati di codifi¬ 


ca sono compresi anche comandi non presen¬ 
ti sulle versioni standard del VIC 20 e del C64, 
ma presenti invece nella serie PET. Questo per 
rendere del tutto generale il programma. Il file 
da listare deve ovviamente trovarsi su disco. 


1 00 

1 20 

1 30 
1 50 

1 60 

1 70 


1 80 


1 90 
200 

210 

220 

230 

240 

250 


260 


270 


280 


290 


300 


], 9 ' 147 ' 17 ' 145 '29,1 57,1 8 
, 146,20,148,141,32 
DATA 129,149,150,151,152,14, 
142,153,154 
DATA 155 

DATA 144,5,28,159,156,30,31, 
158 

DATA 8,9,133,137,134,138,135 
,139,136,140 

DATA HOME,CLEAR,GIU 1 ,SU,DEST 
. ,SIN. ,RVS,RVOFF, DEL,INST, RE 
TURN,SPAZI 


DATA ARANO.,MARR.,R0SS01 ,GRI 
Gl,GRIG2,TEXT,GRAPHIC,VERDE 
C,BLU C 
DATA GRIG3 


DATA NERO,BIANCO,ROSSO,CYAN, 

MAGENTA,VERDE,BLU,GIALLO 

DATA LOOK,UNLOCK,Fi,F2,F3,F4 

,F5,F6,F7,F8 

DIMA(40),A$(40),K$(90) 

FORJ = 0TO3 9 : READA(J) :NEXTJ 
FORJ=0TO39:READA$( J):NEXTJ 
DATA END,FOR.NEXT,DATA,INPUT 
#,INPUT,DIM,READ,LET,GOTO,RU 
N,IF,RESTORE,GOSUB 
DATA RETURN,REM,STOP,ON,WAIT 
,LOAD,SAVE,VERIFY,DEF,POKE,P 
RINT#,PRINT,CONT 
DATA LIST,CLR,CMD,SYS,OPEN,C 
LOSE,GET,NEW,TAB(,TO,FN,SPC( 
,THEN,NOT,STEP 

DATA , t ,AND,OR,>,=,<, 

SGN,INT,ABS,USR,FRE,POS,SQR, 

RND,LOG,EXP,COS 

DATA SIN,TAN,ATN,PEEK,LEN,ST 

R$,VAL,ASC,CHR$,LEFT$,RIGHT$ 

, MI D$,GO,CONCAT 

DATA DOPEN,DOLOSE,RECORD,HEA 

DER,COLLECT,BACKUP,COPY,APPE 

ND,DSAVE,DLOAD 


31 0 

320 

400 

41 0 
420 
430 

440 

4 50 


460 

470 

480 

490 
500 
51 0 
520 

530 

540 

600 


61 0 


620 


630 


640 

650 


DATA CATALOG,RENAME,SCRATCH, 
DIRECTORY 

FORJ = 0 TO 9 0 : RE AD K$(J) :NEXTJ 
CLOSE1:INPUT"NOME DEL FILE P 
ROGRAMMA";G$ 

OPEN 1,8,3,G$+",P,R" 

GET#1,A$,B$ 

IFA$OCHR$ ( 1 ) ANDAS<> ""GOT040 
0 

IFA$ = ""THENA$ =CHR$(1) :GET#1 , 
X$ 

PRINT"ESTREMI # DI LINEA(SEP 
ARATI DA"CHR$(34)"-"CHR$(34) 
")";:INPUTZS 
L0=0:Ll=0:L2=1E9 
FORJ=1TOLEN(Z$):Y$=MID$(Z$,J 
, 1 ) 

Y=ASC( Y$):IFY>=48ANDY<=57GO 
T051 0 

IFY=32G0T0510 
L0=J : IFY045GOT0600 
NEXTJ 

IFL0<LEN(Z$)THENL2=VAL(MID$( 
Z$,L0+1)):IFL2=0THENL2=1E9 
IFL0>1THENL1=VAL(Z$) 
IFL0=0THENL1=L2 
P3$="[":P4$=")INPUT"LISTA 
SU STAMPANTE{ 2 SPAZI}N 
{ 3 SIN}";Z$ 

P=3:IFASC ( Z$)=83THENP=4:L$ = " 
{GIU 1 }":P3$=CHR$(219):P4$=CH 
R$(221) 

PI$ = "[":P 2 $ = "]» :INPUT"GRAFIC 
A O TESTO} 2 SPAZI}G 
{ 3 SIN}";Z$ 

PRINTCHR$(142);:IFASC(Z$)=84 
THENPRINTCHR$(14);:M$=L$:P1$ 
=P3$:P2$=P4$ 

INPUT"TRADUZ.MOVIM.CURSORE 
{ 2 SPAZI}N{ 3 SIN}";Z$ 

IFASC(Z$)=83THENT7=1 
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660 OPEN4,P:FS=P1S 
670 J = 80 :1FPO3GOT0690 
680 PRINT"{CLR}":J=PEEK(21 3) +1 
690 L9=J:PRINT#4,"PROGRAMMA: 

{ 2 SPAZI}";GS 
700 REM NUOVA LINEA 
710 GOSUB2010:Q=0:T1=1 :C1=-1:GET 
#1 , A3 , BS : IFSTO0G0T03000 
720 IFB$ = ""GOTO3000 
730 GET#1,A$,B$ 

740 L=ASC(A$+CHR$(0))+ASC(B$+CHR 
$(0))*256 
750 IFL<L1GOTOl080 
760 IFL>L2GOTO3000 
770 F2=l:PRINT#4,M$;P$:P$=STR$(L 
) +" " 

800 REM IL TESTO INIZIA QUI 
810 GET#1 ,A$:IFA$ = ""GOTO?10 
820 T=0:A=ASC(A$):IFA=32ANDF$=", 
"GOTO840 

830 IFQ=0OR(AAND127)>31ORT7=OGOT 
0900 

840 FORJ = 0TO4 0:IFA=A(J)THENBS =A$ 
(J):GOTO860 
850 NEXTJ:GOTOl000 
860 IFB$=Bl$THENB=B+1:GOT0810 
870 IFB>0THENA$=MID$(STR$(B+l ) ,2 
)+ FS +B$:G0T08 90 
880 A$=F$+B$ 

8 90 B = 0: Bl$=B$ :F$ = ": Fi=1 :GOTOl 
01 0 

900 A=A-128:IFA<OORQ<>OGOTOl 000 
91 0 IFA=12 7THENAS = "[<t>]":GOTOl 0 
00 

920 T=1:A$=K$(A) 

930 IFA=15THENQ=2 
1000 GOSUB2010 
1010 IFA$=CHR$(34)THENQ=1-Q 
1020 REM C=-l PER ALFANUMERICO 


1 030 C=ASC (LEFT$ (A3,1 ) ) (C<487 

RC>57)AND(C<65ORC>90) 

1 040 IFTOTl ORT= 1 THENT1 =T: IFNOT- 
ANDNOTC1THENP$=P$+" ":GOSUB 
2500 

1050 C=ASC(RIGHT3(A3,1)):C1-((C< 

4 80RC> 57)AND(C< 65ORC>90))OR 
A=37 

1060 P$=P$+AS:GOSUB2500 
1070 GOTO810 

1080 REM PASSA ALLA NUOVA LINEA 
1 090 GET#1 ,A3 :IFA$ = ""GOT071 0 
1100 GOTOl090 

2000 REM CHIUDE ESPRESSIONE CURS 
ORE 

2010 IFFl=0GOTO2040 

2020 IFB>0THENP3=P$+MID3(STR3(B+ 

1) ,2) :GOSUB2 500 

2030 B=0:F1=0:Bl3="":P5=P$+P23:G 
OSUB2500:FS=Pl$ 

2040 RETURN 

2500 IFLEN(P3)<L9GOTO2600 
2510 FORJ=L9TOL9*.6STEP-1 
252 0 IFMIDS(PS,J, 1 ) =":"GOTO2 580 
2530 NEXTJ:FORJ = L9-1TOL9 *.6-1STE 
P-l 

2540 P=ASC(MIDS(P$,J)) 

2550 IFP=91GOTO2580 
2560 IFP= 590RP=440RP = 9 3THENJ = J+1 
:GOT02 580 
2570 NEXTJ:J = L9-1 
2580 PRINT#4,M$;LEFT3(P3 » J-1) 

2590 PS = "{ 4 SPAZI}" + MID$(PS t J) 
2600 RETURN 

3000 IFLEN(PS) >0THENF2 = 1 :PRINT#4 
,MS;PS 

3010 IFF2=0THENPRINT"** NON TROV 
O LINEE **" 

3020 CLOSEl :GOSUB2000 :CLOSE4 
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Potholes 


La base di partenza è una città percorsa da 
vie poste in modo simmetrico luna rispetto 
l'altra. Le vie sono disseminate di buche, e 
due macchine, ognuna di un colore diverso, 
sono parcheggiate ai due lati opposti dello 
schema. Il giocatore, un cittadino dotato di 
senso civico, deve cercare di riempire le bu¬ 
che guidando con destrezza attraverso le 
vie. Per ogni buca riempita sono attribuiti 
cinque punti. Il punteggio parziale è conti¬ 
nuamente aggiornato man mano che le bu¬ 


70 POKE 53280,1:POKE53281,1 
80 PRINT"{CLR}{BLK}ATTENDI UN AT 
TIMO MENTRE SISTEMO 
{ 8 SPAZI}I CARATTERI...” 

90 RESTORE:FOR 1=0 TO 8: READ A: 
NEXT 

91 POKE 56334,PEEK(56334)AND254 

92 POKE1,PEEK(1)AND251 

93 FOR 1=0 TO 511:POKEl2288+1,PE 
EK(53248+1):NEXT 

94 POKE 1 ,55 :POKE 56334,PEEK(563 
34)ORI 

95 1=12505 

96 READ A :IF A<>256 THEN POKE I, 
A:1 = 1 + 1 :GOTO96 

99 POKE 53272,28 
110 GOSUB 20000:GOTO 1010 
300 GETD$:P=PEEK(203) :IF P=64 TH 
EN HA=4:RETURN 

310 IF P=30 THEN P=0:GOTO 360 
320 IF P=36 THEN P=1:GOTO 360 
330 IF P=29 THEN P=2:GOTO 360 
340 IF P=37 THEN P=3:GOTO 360 
350 RETURN 

360 IF PEEK(A+M(P))=33 THEN RETO 
RN 

370 HA=P: RETURN 

400 IF HB<>4 THEN B1=B+M(HB) 

402 IF CN>0 THEN RETURN 

403 IF CN=0 THEN HB = 4: RETURN 
405 HY=INT((B-VR+1)/40)-INT((A-V 

R+1 )/4 0) 

410 HX=B-A-HY*40:CN=3 

420 IF ABS(HX)>ABS(HY) THEN 450 

430 IF HY>=0 THEN HB=0:RETURN 

440 HB = 1 : RETURN 

450 IF HX>0 THEN HB=2:RETURN 

460 HB=3:RETURN 

500 IF HA=4 THEN RETURN 


che vengono riempite. Nel frattempo l'altra 
macchina, il funzionario della viabilità, cerca 
di rimpiazzare le buche. 

La macchina del giocatore è guidata utiliz¬ 
zando la tastiera, mentre la macchina del 
funzionario procede automaticamente pilo¬ 
tata dal computer. Col tasto A/l l'auto proce¬ 
de verso il basso; U, verso l'alto, K a destra, 
e H a sinistra. 

Buon divertimento, e occhio agli scontri tra le 
due auto, perché pongono fine al gioco! 


510 Al=A+M(HA):D=PEEK(Al) 

520 IF D=32 THEN RETURN 

530 IF D=31 THEN 560 

540 IF D=33 THEN HA=4: RETURN 

550 OV=l: RETURN 
560 S=S+TE:PO=PO-l 
570 POKE 214,3:S$=STR$(S):SL=LEN 
(S$):PRINT SPC(22-SL)MID$(S$ 
,2,SL-1) 

580 RETURN 

600 IF HB=4 THEN RETURN 
610 B1=B+M(HB):D=PEEK(Bl) 

620 IF D=32 OR D=31 THEN RETURN 

630 OV=l: RETURN 

1000 GOTO 6000 

1010 GOSUB 10000 

1020 GOSUB 1100:GOSUB 1200 

1040 IF OV=l THEN 1700 

1050 IF PO=0 THEN 1500 

1060 GOTO 1020 

1100 IF HA<>4 THEN POKE A,32:A=A 
1:POKE A,CH(HA):POKE A+CR,2 

1110 GOSUB 300 :GOSUB 500 
1120 RETURN 

1 200 IFHBO4THENP0KEB ,UN : POKE B+ 
CR,7:B=B1:UN=PEEK(B):POKE B 
,CH(HB):POKE B+CR,14 
1210 CN=CN-1 

1 220 GOSUB 400:GOSUB 600 
1230 RETURN 

1500 GOSUB 1100:POKE 214,15:PRIN 
T""SPC(16)"BONUS" 

1510 BO=TE* 2 0 :S = S+BO:TE=TE+5 
1520 PRINT SPC(16)BO 
1530 GOSUB 3000:FOR 1=0 TO 500'N 
EXT :GOTOl010 
1 700 GOSUB 1100 
1710 POKE B,32 :POKE A,42 
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1720 GOSUB 3200 

1730 CA=CA-1:OV=0:IF CA=0 THEN 4 
000 

1740 GOTO 1010 

3000 FOR SL=0 TO 20 

3010 FOR S1=0 TO 40:NEXT 

3020 FOR S1=0 TO 20:NEXT:NEXT 

3030 RETURN 

3100 FOR SL=0 TO 30 

3110 FOR S1=0 TO 10 :NEXT 

3120 FOR SI=0 TO 10:NEXT:NEXT 

3130 RETURN 

3200 FOR SL= 1 5 TO 0 STEP-1 
3220 FOR S1=0 TO 9:NEXT:POKE A+C 
R » 4 

3230 FOR S1=0 TO 9:NEXT:POKE A+C 
R,1 :NEXT 
3250 RETURN 

4000 GOSUB 3100 

4001 PRINT"{HOME}{GIU' }" 

4010 FOR Si=0 TO 18 

4020 PRINT"{DES}{ 13 SPAZI}":NEX 
T 

4030 POKE 214,6 

4031 PRINT"{ 2 GIU'}{DES}(GRN) 

{ 2 SPAZI}* FINE * 

{ 3 SPAZI}" 

4040 IF S>HS THEN HS=S:PRINT" 

{ 2 GIU'H 2 DES} {CYN} RECOR 
D . . . " 

4050 PRINT"{ 3 GIU'}{BLU}{DES}GI 
OCHI ANCORA?" 

4060 PRINT SPC(1)"{GIU 1 }<S/N>" 

4070 POKE 214,10:S$ = STR$(HS):SL= 
LEN(SS) 

4071 PRINT"{ 2 GIU'}"SPC(22-SL)M 
ID$(S$,2,SL-1) 

6000 GET D$:IF D$ = ""THEN 6000 

6010 IF D$="S" THEN 6100 

6020 IF D$="N" THEN PRINT"{CLR} 

{BLK}": END 

6030 IF D$="{CLR}" THEN RUN 
6040 GOTO 6000 
6100 CA= 3:S = 0:TE=5 
6110 GOTO 1010 

10000 PRINT"{CLR}{RED} ** POTHOL 
ES * * " 

10010 PRINT"{YEL} !!!!!!!!!!!!!!! 


10020 FOR 1=0 TO 5 

10030 PRINT" j ! 

{ 13 SPAZI}" 

10040 PRINT"!-!!-!!-!!-!!-!" 


-II— NEX 


-1 


1 0065 
1 0070 


10050 PRINT"! 1 
T 

10060 PRINT"!-►---' 

{ 13 SPAZI}" 

PRINT"! ! ! ! ! ! ! ! ! 1 ! !11! 
PRINT"{DES}-{BLU}="TE;TAB( 
10)"{GRN}("CA; 

10080 PRINT"{HOME}{BLU} 

{ 3 GIU'}"SPC(16)"PUNTEGGI 

O" 

10090 S$=STR$(S):SL=LEN(S$):PRIN 

T SPC(22-SL)MIDS(S$,2,SL-1 
1 


10100 PRINT"{ 4 GIU'}"SPC(17)"MA 
SS IMO" 

10110 PRINT" {GIU'}"SPC(16)"PUNTE 
GGIO" 

10120 S$=STR$ (HS):SL=LEN(S$) :PRI 
NT SPC(22-SL) MIDS (SS, 2,SL- 
1) 

10130 A=81+VR:B=813+VR:UN=31 

10140 POKE A,28 :POKE A+CR,2 

10150 POKE B, 27:POKE B+CR, 14 

1 0200 HA=4:HB = 4:PO=150:CN = 20 

10210 PRINT"{HOME}{ 3 GIU'}":RET 
URN 

20000 DIM M(3),CH(3) 

20010 VR=1024:CR=54272:CA=3:TE=5 
:OV=0 

20020 RESTORE:FOR 1 = 0 TO 3 : READ 
M ( I),CH(I):NEXT 

20030 DATA -40,27,40,28,-1,29,1,* 
30 

20040 POKE 36878,10 

20050 RETURN 

30000 DATA 84,124,84,16,16,186,2 
54,186 


30010 DATA 186,254,186,16,16,84, 
124,84 

30020 DATA 14,228,78,254,254,78, 
228,14 

30030 DATA 112,39,114,127,127,11 
4,39,112 


30040 DATA 0,0,24,24,24,0,0,0 
30050 DATA 0,0,0,0,0,0,0,0 
30060 DATA 170,85,170,85,170,85, 
170,85 

30070 DATA 0,0,0,0,0,0,0,0,256 
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Calendari 


Ecco quattro programmi per ottenere ogni ti 
po di calendario col vostro computer, sia su 
video che su carta (è quindi necessaria la 
stampante). 

Programma I - Permette di visualizzare sullo 
schermo il calendario di un mese a scelta. 
Programma 2 - Consente la stampa su carta 
del calendario di un mese a scelta: il formato 
è gigante, in modo che il foglio si possa ap 
pendere al muro. NOTA PER IL VIC: Questo 
programma, data la sua lunghezza, ne cessi 
ta dell’espansione di memoria da 8K. 


Programma 3 - Serve a stampare su catta il 
calendario di un mese a scelta, ma questa 
volta il formalo è quello di un agenda, con lo 
spazio per segnare gli impegni e le scadenze 
di ogni giorno. 

Programma 4 - Permette di stampare in un 
solo foglio il calendario di un anno intero. 
IMPORTANTE: ricordatevi, usando i pro¬ 
grammi 2 3-4, di posizionare la carta nella 
stampante in modo che il calendario venga 
stampato su un unico foglio e non a cavallo 
tra due fogli. 


Programma n. I. 

80 DIMM$(12):FORI=lT012:READM$(I 
):NEXTI 

90 SYS65517:A=PEEK(781):IFA=40TH 
ENPOKE53281,1 

1 00 PRINT"{CLR}{ 2 GIU'} 

{ 3 DES}QUESTO PROGRAMMA”:PR 
INT"{ 6 DES}PRODUCE UN" 

105 PRINT"{ 2 DES}{PUR}CALENDARI 
0 MENSILE{BLU}":PRINT" 

{ 5 DES}SULLO SCHERMO" 

110 PRINT"{ 2 GIU'}{ 6 DES}IMPOS 
TA IL":PRINT"{ 4 DES}{RED}ME 
SE{BLU} E L'{RED}ANNO{BLU}" 

111 PRINT"{ 3 DES}CHE VUOI VEDER 
E"SPRINT"{GIU 1 }{ 2 DES}(ESEM 
PIO: {RED}12,1983{BLU}){PUR} 

{ 2 GIU'}" 

130 PRINT"{ 6 DES}";:INPUTM0,Y:E 
RINT"{ 2 GIU'}{ 7 DES}{PUR}G 
RAZIE!{BLU}{GIU'}":FORI=lT08 
00:NEXT 

292 IFM0 = 1ORMO = 3ORM0 = 5ORM0 = 7ORM0 
=8ORM0=l0ORM0=l2THENE1=31 

293 IFM0 =4ORM0 = 6ORM0 = 9ORM0 = 11 THE 
NEI=30 

294 IFM0=2ANDY/4<>INT(Y/4)THENEI 
= 28 

295 IFM0 = 2ANDY/4 =INT(Y/4)THENGOS 
UBI 400 

297 PRINT"{CLR}{GIU 1 }{DES}{RED}" 

;M$(MO) ;" "; Y;"{BLU}" 

298 GOSUBl 350 :1FA=4OTHENPRINT 

300 PRINT"{ 2 DES}{RED}D{BLU} 

{ 2 DES}L{ 2 DES}M{ 2 DES}M 
{ 2 DES}G{ 2 DES}V{ 2 DES}S" 


305 GOSUBl360 

310 D=1 :GOSUBl050 

320 IFDl=7THENFORI = 1TOl 9 :PRINT" 
{DES}"; :NEXT:PRINTD:IFA=4 0TH 
ENPRINT 

321 IFDl=7THEN330 

322 IFDl =6THENFORI = 1TOl6 :PRINT" 
{DES}:NEXT:PRINTD;:GOTO330 

323 IFDl=5THENFORI = 1TOl 3 :PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

324 IFDl=4THENFORI = 1TOl0 :PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

325 IFDl=3THENFORI=1T07:PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

326 IFDl=2THENFORI=lT04SPRINT" 
{DES}"; :NEXT:PRINTD; :GOTO330 

327 IFDl=1THENPRINT"{DES}{RED}"• 
D;"{BLU}";:GOTO330 

330 FORD=2TOEl:G0SUB1050 

331 IFDl=1ANDD<=9THENPRINT"{DES} 

{RED}";D;"{BLU}"; :GOT03 4 5 

332 IFDl=1ANDD>9THENPRINT"{REDÌ" 

;D;"{BLU}";:G0T0345 

333 IFDl=7THEN340 

334 IFD<=9THENPRINTD;:GOT0345 

335 PRINT"{SIN}";D;:G0T0345 

340 IFD>9THENPRINT"{SIN}";D:GOTO 
345 

341 PRINTD 

345 IFA=40ANDDl=7THENPRINT 
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346 NEXTD 

1 045 PRINT:PRINT :FL=1:GOSUBl 350: 

IFA=22THENPRINT"{ 3 SU}" 

1 049 PRINT: END 

1 050 IFMO = 1THENMO = 13 : Y=Y-1 :GOTOl 
080 

1 060 IFMO = 2THENMO = 14 :Y=Y-1 
1080 M=M0-2 

1100 DI=INT(2.6*M-0.2)+D+Y-1 900 + 
INT((Y-1900)/4) 

1150 DI=D1+INT(19/4)-2*19 
1200 Di=Dl-INT(Dl/7)*7+1 
1210 IFM0 = 4ORM0 = 9THENDl =Dl +1 
1230 IFM0=13THENM0=1:Y=Y+1:G0T01 
245 

1 240 IFMO = 14THENM0 = 2:Y=Y+1 :Dl= Dl 
+ 1 

1 244 IFD1=8THEND1 =1 
1 245 IF(Y=2100ANDM0>=3)OR(Y>21 00 
)THENDl=D1-1 : IFDl=0THENDl=7 

1 247 IF(Y=2200ANDM0>=3)OR(Y>2200 
)THENDl=Dl-1 :IFDl=0THENDl =7 

1 249 IF(Y = 2 300ANDM0> = 3)OR(Y>2 300 
)THENDl=Dl-1 :IFDl=0THENDl=7 

1250 RETURN 

1 350 IFFL=OTHENPRINT:FORI = 1 T022 : 
PRINT"*";:NEXT: PRINT-.RETURN 

Programma n. 2 

1 GOTOl0 

5 El =1 :E2 = 1:E3 = 1:E4 = 1:E5 = 1:E6 = 1: 

E7 = l 

6 GOSUBl109:D8=D7-1 : RETURN 

10 OPENl ,4 : SYS 6551 7 :A=PEEK(781 ) : 

IFA=40THENPOKE53281,1 
20 GOSUB4000:GOSUB3200:PRINT# 1 

II 

30 ONM0GOSUB3010,3020,3030,3040, 
3050,3060,3070,3080,3090,3100 
,3110,3120 

40 PRINT#1,"":PRINTfl,"":GOSUBl6 
1OtGOSUBl 650 :GOSUBl660 
80 OND9GOSUB1 81 1 ,1 821 , 1 831 , 1 841 , 

1 851 , 1 861 ,1 871 
99 PRINT#1,"":PRINT#!,"" 

1 00 Gl=D8 

105 G=G1:GOSUBl720:Dl=D:El=E 
110 G2=G+1:G=G2:GOSUBl720:D2=D:E 
2=E 

115 G3=G+1 :G=G3:GOSUBl 720 :D3=D:E 
3=E 

120 G4 = G+1 :G=G4:GOSUBl 720 :D4=D : E 
4=E 

125 G5=G+1:G=G5:GOSUBl 720:D5=D:E 
5 = E 


1 355 IFDl=7THENPRINT" { 3 SU} : PO 
RI = 1T022:PRINT”*"; :NF.XT: PRI 
NT"{SU}": RETURN 

1358 F0RI=1T022:PRINT"*";:NEXT:P 
RINT"{SU}":RETURN 

1360 PRINT"{ 2 SPAZI}[<T>] 

{ 2 SPAZI}[<T>]{ 2 SPAZI} 

[ <T> ] { 2 SPAZI} [<T>] 

{ 2 SPAZI}{<T>]{ 2 SPAZI} 

[<T>]{ 2 SPAZI} [<T>]":RETUR 
N 

1400 IF(Y/l 00=INT(Y/1 00)) AND (Y/4 
00OINT (Y/400) ) THENEl =28:GO 
TOl410 

1405 El=29 

1410 RETURN 

1420 DATA" { 3 SPAZI}GENNAIO", " 

{ 3 SPAZ1}FEBBRAIO"," 

{ 4 SPAZ1}MARZO"," 

{ 4 SPAZI}APRILE" 

1430 DATA"{ 4 SPAZI}MAGGIO"," 

{ 4 SPAZI}GIUGNO"," 

{ 4 SPAZ 1} LUGLIO"," 

{ 4 SPAZI}AGOSTO" 

1440 DATA"{ 2 SPAZI}SETTEMBRE"," 
{ 3 SPAZI}OTTOBRE"," 

{ 3 SPAZ 1} NOVEMBRE" ," 

{ 3 SPAZI}DICEMBRE" 


130 G6=G+1:G=G6:GOSUBl720:D6=D:E 
6=E 

135 G7=G+1:G=G7:GOSUBl720:D7=D:E 
7 =E 

1 40 Gl =G7 + 1 : GOSUBl 1 09:PRINT#1 

:PRINT#1 ;IFG1<=E9THENl0 5 
155 PRINT#1,"" 

1000 GOTOSOOO 

1109 GOSUB2000:X=El:Xl=Dl:GOSUBl 
1 000 

1120 X=E2:Xl=D2:GOSUBl1000 
1130 X=E3: XI=D3:GOSUBl1000 
1140 X=E4:X1=D4:GOSUBl1000 
1150 X=E5:X1=D5:GOSUBl1000 
1160 X=E6:X1=D6:GOSUBl1000 
1170 X=E7:X1=D7:FL=1;GOSUBl1000 
1209 GOSUB2000;X=El:X1=D1:GOSUBl 
2000 

1220 X=E2:X1=D2:GOSUBl2000 
1230 X=E3:X1=D3:GOSUBl2000 
1240 X=E4:X1=D4:GOSUBl2000 
1250 X=E5:X1=D5:GOSUBl2000 
1260 X=E6;Xl=D6:GOSUBl2000 
1 270 X=E7:XI=D7:FL=1 :GOSUBl 2000 
1309 GOSUB2000:X=El:Xl=Dl:GOSUBl 
3000 

1320 X=E2:Xl=D2:GOSUBl3000 
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1330 X=E3:X1=D3:GOSUB13000 
1340 X=E4:X1=D4:GOSUBl3000 
1350 X = E5: XI=D5:GOSUB13000 
1360 X=E6:X1=D6:GOSUB13000 
1370 X=E7:X1=D7:FL=1:GOSUBl3000 
1409 GOSUB2000:X=El:X1=Dl:GOSUBl 
4000 

1420 X=E2:Xl=D2:GOSUBl4000 
1430 X=E3:X1=D3 :GOSUBl4000 
1 440 X = E4: XI=D4:GOSUBl 4000 
1450 X=E5:Xl=D5:GOSUBl4000 
1 460 X = E6: XI=D6:GOSUBl 4000 
1 470 X = E7: XI=D7:FL=1 :GOSUBl 4000 
1509 GOSUB2000:X=E1:X1=Dl:GOSUBl 
5000 

1520 X=E2:X1=D2:GOSUBl5000 
1530 X=E3:X1=D3:GOSUBl5000 
1540 X=E4:X1=D4:GOSUBl5000 
1 550 X = E5: XI=D5:GOSUBl 5000 
1560 X = E6: XI=D6:GOSUBl5000 
1570 X=E7:X1=D7:FL=1:GOSUBl5000 
1600 RETURN 

1610 PRINT#1 »"{ 5 SPAZI}"; :PRINT 
#1 ,CHRS(14)"DOM";:PRINT#1 ,C 
HR$(15)"{ 5 SPAZI}"; 

1 61 1 PRINT#1 ,CHR$(14)"LUN";;PRIN 
T#1/CHRS(15)"{ 5 SPAZI}"; 
1612 PRINT#1,CHR$(14)"MAR";:PRIN 
T#1,CHRS(15)"{ 5 SPAZI}"; 
161 3 PRINT#1,CHRS(14)"MER";:PRIN 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1614 PRINT#1,CHRS(14)"GIO";:PRIH 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1615 PRINT#1,CHRS(14)"VEN";:PRIN 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1616 PRINT#1/CHRS(14)"SAB":PRINT 
» 1 ,CHR$ (15)" ■ 

1620 PRINT#1 »”{ 5 SPAZI}";:PRINT 

#1,CHRS(14)"-";:PRINT#!,C 

HR$(15)"{ 5 SPAZI}"; 

1621 PRINT#!,CHRS(14)"-";:PRIN 

T#1,CHRS(15)"{ 5 SPAZI}"; 

1622 PRINT#1,CHRS(14)"-";:PRIN 

T#1,CHRS(15)"{ 5 SPAZI}"; 

1623 PRINT#1,CHRS(14)"-";:PRIN 

T#1,CHR$(15)"{ 5 SPAZI}"; 

1624 PRINT#1, CHRS(14)"-";:PRIN 

T#1,CHRS(15)"{ 5 SPAZI}"; 

1 62 5 PRINT#1 ,CHR$(14)"-"; :PRIN 

T#1,CHR$(15)"{ 5 SPAZI}"; 

1626. PRINT#1,CHRS(14)”-":PRINT 

#1,CHRS(15)" RETURN 

1 650 IFM0=lORM0=3ORM0=5ORM0=7ORM 
0=8ORM0=l0ORM0 = 12THENE9 = 31 
1 652 IFM0=4ORM0=6ORM0=9ORM0=11 TU 
ENE9=30 

1 654 IFM0 = 2ANDY/4< >INT(Y/4)THENE 
9 = 28 


IFM0=2ANDY/4=INT(Y/4)THENE9 
= 29 

RETURN 

IFM0 = 1 THENM0 = 13:Y=Y-1:GOTOl 
670 

IFM0=2THEHM0=14:Y=Y-1 
M=M0-2 

D9=INT(2.6*M-0.2)+D+Y-1900+ 
INT((Y-1900)/4) 

D9=D9+INT(19/4)-2*19 

D9 = D9-INT(D 9/7)*7 + 1 
IFM0=4ORM0=9THEHD9=D9+l 
IFM0 = 13THENM0 = 1:Y = Y+1:GOTOl 
71 0 

IFM0 = 14THENM0 = 2 :Y=Y+1 :D9 = D9 
+ 1 

IFD9=8THEND9=1 

IF(Y = 2100ANDM0> = 3)OR(Y> 2100 
)THEND9 = D9-1 :IFD9 = 0THEND9 = 7 

IF(Y=2200ANDM0>=3)OR(Y>2200 
)THEND9 = 09-1 :1FD9 = 0THEND9=7 

IF(Y = 2 300ANDM0> = 3)OR(Y>2300 
) THF.ND9 = D9- 1 : I FD9 = 0THEND9 = 7 

RETURN 

IFG>E9THEN1740 

IFG<10THEN1742 

IFG> = 10ANDG< 20THEN1746 

IFG> = 20ANDG< 30THF.N1 748 

IFG>=30THEN1750 

D=1 ;E=1 :GOTOl755 

D=G+2:E=1 :GOTOl755 

D=G-8:E=2:GOTOl755 

D=G-18:E= 3 :GOTOl755 

D = G-2 8 ;E= 4 

RETURN 

Dl=l:D2=3:D3=4:D4=5:D5=6:D6 

= 7 :D7 = 8:GOSUB5;RETURN 

Di=1:D2=1:D3=3:D4=4:D5=5:D6 

= 6:D7 = 7;GOSUB5: RETURN 

DI=1 :D2 = 1:D3 = 1:D4 = 3 :D5 = 4:D6 

= 5:D7 = 6:GOSUB5: RETURN 

Dl=l :D2 = 1:D3 = 1:D4 = 1:D5 = 3:D6 

= 4 :D7 = 5 :GOSUB5: RETURN 

DI=1:D2=1:D3=1:D4=1:D5=1:D6 

= 3 :D7 = 4:GOSUB5: RETURN 

Di =1:D2 = 1:D3 = 1:D4 = 1:D5 = 1:D6 

= 1 :D7 = 3:GOSUB5: RETURN 

DI=3:D2=4:D3=5;D4=6:D5=7;D6 

= 8 :D7 =9 :GOSUB5: RETURN 
PRINT#1,"{ 4 SPAZI}"; : RETUR 
N 

PRINT#1[< 2 X>] ";: RETUR 
N 

PRINT#1,"(<X>}{ 2 SPAZI} 
[<X>1"; : RETURN 


1 656 

1 658 

1 660 

1 665 

1 670 

1 675 

1 630 

1 685 

1 690 

1 695 

1 700 

1 705 

1 71 0 

1 71 1 

171 2 

1 71 5 

1 720 

I 722 

1 726 

1 728 

1730 

1 740 

1 742 

I 746 

1 748 

1 750 

I 755 

1 31 1 

1 321 

1831 

1 341 

I 851 

1 861 

1 871 

2000 

2001 

2002 
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2003 PRINT#1 
1<X>)"; 

2004 PRINT#1 
[<X>]»; 

2005 PRINT#1 
N 

2011 PRINT#! 
RETURN 

2012 PRINT#1 
RETURN 

2013 PRINT#1 
RETURN 

2014 PRINT#1 
RETURN 

2015 PRINT#1 
RETURN 

2021 PRINT#1 
N 

2022 PRINT#1 
[<X>] 


" [<x>] { 

RETURN 

2 

SPAZI} 

"[<X>]{ 
RETURN 

2 

SPAZI} 

" [< 2 

x>] 

"; : RETUR 

"[<X>]{ 

2 

SPAZI}"; : 

"[<x>] { 

2 

SPAZI}"; : 

" [<x>]{ 

2 

SPAZI}"; : 

" [<x>] { 

2 

SPAZI}";: 

"[<x>] { 

2 

SPAZI}";: 

" [< 2 

x>] 

";: RETUR 

"[<X>1{ 

2 

SPAZI} 


: RETURN 


2023 PRINT#1,"{ 2 SPAZI}[<X>] " ; 

:RETURN 

2024 PRINT#1," [<X>]{ 2 SPAZI}"; 
: RETURN 


2025 PRINT#!,"[< 4 X>}";:RETURN 
2031 PRINT#1 ,"t < 3 X>] : RETURN 


2064 PRINT#![<X>]{ 2 SPAZI} 
[<X>]: RETURN 

2065 PRINT#!," (< 2 X>) "; : RETUR 

N 

2071 PRINT#1,"[< 4 X>]";:RETURN 

2072 PRINT#1 , " { 3 SPAZI} [<X>] : 

RETURN 

2073 PRINT#1,"{ 2 SPAZI}[<X>] "j 

• return 

2074 PRINT#1 ," [<X>] { 2 SPAZI}"; 

: RETURN 

2075 PRINT#1," [<X>]{ 2 SPAZI}"; 

: RETURN 

2081 PRINT#1," [< 2 X>] "; : RETUR 

N 


2082 PRINT#1[<X>]{ 2 SPAZI} 
[<X>1";: RETURN 

2083 PRINT# 1 »" [< 2 X>} " ; : RETUR 

N 

2084 PRINT#1,"[<X>]{ 2 SPAZI} 
[<X>1";:RETURN 

2085 PRINT#1," [< 2 X>] "; : RETUR 

2091 PRINT#!," [< 2 X>J "; : RETUR 

N , 

2092 PRINT#1,"[<X>]{ 2 SPAZI} 
[<X>]";: RETURN 

2093 PRINT#!," [< 3 X>]";:RETURN 


2032 PRINT#!,"{ 3 SPAZI}[<X>)" ; : 
RETURN 

2033 PRINT#!," [< 2 X>] "; : RETUR 
N 

2034 PRINT#1,"{ 3 SPAZI}[<X>]"; : 
RETURN 

2035 PRINT#1 ,"[< 3 X>] "; :RETURN 

2041 PRINT#1,"{ 2 SPAZI)[<X>] "; 

: RETURN 

2 04 2 PRINT#1," [< 2 X>] "; : RETUR 

2043 PRINT#1,"[<X>] [<X>] "; :RET 

URN 

2044 PRINT#!,"[< 4 X>]”;:RETURN 

2045 PRINT#1," { 2 SPAZI}[<X>] "; 

: RETURN 

2051 PRINT#1,"(< 4 X>]";:RETURN 

2052 PRINT#1,"[<X>]{ 3 SPAZI}";: 
RETURN 

2053 PRINT#1,"[< 3 X>] "; : RETURN 

2054 PRINT#1,"{ 3 SPAZI}[<X>1";: 
RETURN 

2055 PRINT#1 ,"t < 3 X>] "; : RETURN 

2061 PRINT#1," [< 2 X>] "; : RETUR 

N 

2062 PRINT#1,"[<X>}{ 3 SPAZI}';: 
RETURN 

2063 PRINT#!,"[< 3 X>] "; : RETURN 


2094 PRINT#1,"{ 3 SPAZI}[<X>}";: 
RETURN 

2095 PRINT#!," [< 2 X>] "; :RETUR 
N 

2111 PRINT#1,"{ 2 SPAZI}[<X>] "; 

: RETURN 

2112 PRINT#1,"{ 2 SPAZI}[<X>) "; 
: RETURN 

2113 PRINT#1,"{ 2 SPAZI}[<X>] "; 

:RETURN 

2114 PRINT#1,"{ 2 SPAZI}[<X>] "; 

: RETURN 

2115 PRINT#!,"{ 2 SPAZI}[<X>] "; 
: RETURN 

3010 GOSUB2000:PRINT#1," 

[< 3 X>]{ 2 SPAZI}[< 5 X>] 
[<X>]{ 3 SPAZI}[<X>]" 

3011 GOSUB2000:PRINT#1,"[<X>] 

{ 5 SPAZI}[<X>]{ 5 SPAZI} 

[< 2 X>){ 2 SPAZI}[<X>1" 

3012 GOSUB2000:PRINT#1,"[<X>] 

{ 2 SPAZI}[< 2 X>] 

[< 4 X>]{ 2 SPAZI}[<X>] 
[<X>] [<X>]" 

3013 GOSUB2000:PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>] [<X>1 

{ 5 SPAZI}[<X>1{ 2 SPAZI} 

[< 2 X>]" 





301 4 

301 5 


GOSUB2000:PRINT*1," 

[< 3 X>]{ 2 SPAZI}[< 5 X>1 
[<X>]{ 3 SPAZI}[<X>J" 
RETURN 


3020 GOSUB2000:PRINT#1," 

l< 5 X>] [< 5 X> ] [< 4 X> ) 


3021 GOSUB2000:PRINT#1, "[<X>) 

{ 5 SPAZI}[<X>1{ 5 SPAZI} 
I<X>){ 3 SPAZI}[<X>]" 


3022 GOSUB2000:PRINT#1 

(< 3 X>){ 3 SPAZI}[< 4 X>] 
{ 2 SPAZI)[< 4 X>] " 

3023 GOSU82000:PRINT#1[<X>J 

{ 5 SPAZI}[<X>]{ 5 SPAZI} 

[<X>] { 3 SPAZI}[<X>]" 

3024 GOSUB2000:PRINT#1,"[<X>] 

{ 5 SPAZI}[< 5 X>) 

[< 4 X>) " 

3025 RETURN 

3030 GOSUB2000:PRINT* 1 [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[< 3 X>){ 2 SPAZI}[< 4 X>) 

»t ' 

3031 GOSUB2000:PRINT#1," 

t< 2 X>] (< 2 X>) [<X>] 

{ 3 SPAZI)t < X>] [<X>) 

{ 3 SPAZI}f<X>)" 

3032 GOSUB2000:PRINT#1[<X>] 

[<X>J I< X>] [<X>J 

{ 3 SPAZI}[<X>) [< 4 X> ] " 

3033 GOSUB2000:PRINT#1 , [<x> ] 

[<X>J [<X>] [< 5 X>] [<X>] 

{ 2 SPAZI}[<X>J " 


3034 GOSUB2000 :PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>J [<X>] 

{ 3 SPAZI}[<X>]" 

3035 RETURN 

3040 GOSUB2000:PRINT#1 

[< 3 X>}{ 2 SPAZI}[< 4 X>} 
{ 2 SPAZI}[< 4 X>] " 

3041 GOSUB2000:PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>J 
{ 3 SPAZI}[<X>]" 

3042 GOSUB2000:PRINT#1[<X>] 
j 3 SPAZI}[<X>] [< 4 X>] 

{ 2 SPAZI}(< 4 X>] " 

3043 GOSUB2000:PRINT#1," 

[< 5 X>} [<X>){ 5 SPAZI} 

[<X>]{ 2 SPAZI} [<x>] " 

3044 GOSUB2000:PRINT#1,"[<x >1 
{ 3 SPAZI}[<X>] [<X>] 

{ 5 SPAZI}I<X>]{ 3 SPAZI} 
[<X>]" 

3045 RETURN 


3050 GOSUB2000: PRINT#![<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 

[< 3 X>}{ 3 SPAZI} [< 3 X>] 

n 

3051 GOSUB2000 :PRINT#1 

[< 2 X>) [< 2 X>] [<X>) 

{ 3 SPAZI }(< X> ] [<X> ] 

{ 4 SPAZI}" 

3052 GOSUB2000:PRINT#1,"[<X>] 

(<X>) (< X>] [<X>] 

{ 3 SPAZI} }<X>] [<X> ] 

{ 2 SPAZI} [< 2 X>] " 

3053 GOSUB2000:PRINT#1 ,"[<X>] 

[<X>] [<X>] [< 5 X>] [<X>) 

{ 3 SPAZI} I <X>]" 

3054 GOSUB2000:PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>J (<X>) 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 

[< 3 X>) " 

3055 RETURN 

3060 GOSUB2000:PRINT#1 

[< 3 X>J{ 2 SPAZI} [< 3 X>] 
[<X>1{ 3 SPAZI} [<X>J" 

3061 GOSUB2000:PRINT#1,"[<X>} 

{ 6 SPAZI}(<X>1{ 2 SPAZI} 
[<X>]{ 3 SPAZI}[<X>]" 

3062 GOSUB2000:PRINT#1 ,"[<X>] 

{ 2 SPAZI}[< 2 X>] 

{ 2 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 3 SPAZI}[<X>1" 

3063 GOSUB2000:PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}I<X>] 

{ 3 SPAZI} [ <X> )" 

3064 GOSUB2000:PRINT#1 

[< 3 X>]{ 2 SPAZI}[< 3 X>] 

( 2 SPAZI}[< 3 X>) » 

3065 RETURN 

3070 GOSUB2000 :PRINT#1[<X>) 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 2 SPAZI}[< 3 X>] " 

3071 GOSUB2000:PRINT#!,"[<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>] [<X>1 { 4 SPAZI}" 

3072 GOSUB2000:PRINT#1,"[<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>] [<X>]{ 2 SPAZI} 

[< 2 X>] " 

3073 GOSUB2000:PRINT#1,"[<X>) 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>) [<X>]{ 3 SPAZI}[<X>]" 

3074 GOSUB2000:PRINT#1," 

l< 5 X>]{ 2 SPAZI}[< 3 X>) 

{ 3 SPAZI}[< 3 X>] 

3075 RETURN 

3080 GOSUB2000:PRINT#1," 

t< 3 X>]{ 3 SPAZI}[< 3 X>) 

{ 3 SPAZI}[< 3 X>] " 
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3081 GOSUB2000 :PRINT# 1[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]" 

3082 GOSUB2 000 :PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>1 [<X>] 

{ 2 SPAZI}[< 2 X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3083 GOSUB2000 :PRINT#1 

[< 5 X>] [<X>]{ 3 SPAZI} 

[<X>] [<X>]{ 3 SPAZI}[<X>]" 


3084 GOSUB2000:PRINT#1 ,"[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[< 3 X>]{ 3 SPAZI}[< 3 X>] 


3085 RETURN 

3090 GOSUB2000:PRINT#1 

[< 4 X>] [< 5 X>] [< 5 X>} 

II 


3091 

3092 

3093 

3094 


3095 
31 00 


31 01 


31 02 


31 03 


31 04 


3105 
31 1 0 


31 1 1 


GOSUB2000:PRINT#1[<X>] 

{ 5 SPAZI}[<X>]{ 7 SPAZI} 
[<X>] { 2 SPAZI}'.' 

GOSUB2000:PRINT#1 

[< 3 X>] { 2 SPAZI} [< 4 X>] 

{ 4 SPAZI}[<X>]{ 2 SPAZI}" 
GOSUB2000:PRINT# 1 
{ 4 SPAZI}[<X>] [<X>] 

{ 7 SPAZI}[<X>]{ 2 SPAZI}" 
GOSUB2 000:PRINT#! 

[< 4 X>]{ 2 SPAZI}[< 5 X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI}" 
RETURN 

GOSUB2000 :PRINT#1 ,'' 

[< 3 X>]{ 2 SPAZI}[< 5 X>] 
[< 5 X>]" 

GOSUB2000:PRINT#1[<X>] 

{ 3 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 5 SPAZI}[<X>] 

{ 2 SPAZI}" 

GOSUB2000:PRINT#1[<X>] 

{ 3 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 5 SPAZI}[<X>] 

{ 2 SPAZI}" 

GOSUB2000:PRINT#1[<X>] 

{ 3 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 5 SPAZI}[<X>] 

{ 2 SPAZI}" 

GOSUB2 000 :PRINT# 1 
[< 3 X>]{ 4 SPAZI}[<X>] 

{ 5 SPAZI}[<X>]{ 2 SPAZI}" 
RETURN 

GOSUB2000:PRINT#![<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[< 3 X>]{ 2 SPAZI}[<X>] 

{ 3 SPAZI}[<X>]" 

GOSUB2000:PRINT#1 
[< 2 X>]{ 2 SPAZI}[<X>] 
[<X>]{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]" 


3112 GOSUB2000:PRINT#1[<X>] 

[<X>] [<x>] !<*>!.. 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]" 

GOSUB2000 :PRINT#1 [<X> 

{ 2 SPAZI}[< 2 X>] t<X>] 

{ 3 SPAZI}[<X>}{ 2 SPAZI} 
[<X>] [<X>] " 

GOSUB2000 :PRINT#1 [<X>] 

{ 3 SPAZI}[<X>}{ 2 SPAZI} 
[< 3 X>]{ 4 SPAZI}[<X>] 

{ 2 SPAZI}" 

3115 RETURN 

3120 GOSUB2000 :PRINT#1 , 

[< 4 X>]{ 2 SPAZI}[< 

{ 2 SPAZI}[< 3 X>] 

{ 2 SPAZI}" 

GOSUB2000:PRINT#1[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>}{ 2 SPAZI}[<X>1 
{ 3 SPAZI}[<X>] " 

3122 GOSUB2000:PRINT#1[<X>J 
{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}[<X>] 

{ 5 SPAZI}" 


31 1 3 


31 1 4 


31 21 


3 X>] 






{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}[<X>] 

{ 3 SPAZI}[<X>] " 

3124 GOSUB2000:PRINT#! »" 

[< 4 X>]{ 2 SPAZI}[< 3 X>] 

{ 2 SPAZI}[< 3 X>} 

{ 2 SPAZI}" 

3125 RETURN 

3200 II=INT(Y/1 000) :Jl =Y-Il*1000 
:I2=INT(J1/100):J2=J1-12*10 
0 :13 = INT(J2/10) 

3210 14 =J2-13*10 

3211 IFI2=0THENI2=10 

3212 IFI3=0THENI3=10 

3213 IFI4=0THENI4=10 

3214 GOSUB2000:X=I1:GOSUB6000:GO 
SUB2000:X=I2:GOSUB6000:GOSU 
B2000:X=I3:GOSUB6000 

3215 GOSUB2000:X=14 :FL=1 :GOSUB60 
00 

3314 GOSUB2000:X=Il :GOSUB7000:GO 
SUB2000:X=I2:GOSUB7000:GOSU 
B2000:X=13:GOSUB7000 

3315 GOSUB2000:X=I4:FL=1:GOSUB70 
00 

3414 GOSUB2000:X=Il:GOSUB8000:GO 
SUB2000:X=I2:GOSUB8000:GOSU 
B2000:X=I3:GOSUB8000 

3415 GOSUB2000:X=14 :FL=1 :GOSUB80 
00 

3514 GOSUB2000:X=Il:GOSUB9000:GO 
SUB2 000 :X=12 :GOSUB9000 :GOSU 
B2000:X=I3:GOSUB9000 
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3515 GOSUB2000:X*I4:FL»1tOOSUB90 
00 

3614 GOSUB2000 : X* 11 :GOSUBl0000:G 
OSUB2000:X»I2:GOSUBl0000:GO 
SUB2000: X-13 

3615 GOSUBl 0000 :GOSUB2000:X= 14 :F 
L-l :GOSUBl 0000 :RETURN 

4000 PRINT"{CLR}(GIU 1 }{ 3 DES}QU 
ESTO PROGRAMMA":PRINT" 

{ 6 DES}STAMPA UN" 

4020 PRINT"{ 2 DES}(PUR)CALENDAR 
IO MENSILE(BLU}" 

4030 PRINT"(GIU'}( 6 DES}IMPOSTA 
IL":PRINT"{ 4 DES}{RED}MES 
E{BLU} E L'{RED}ANNO(BLU)" 

4035 PRINT"( 2 DES}CHE VUOI STAM 
PARE":PRINT"{ 2 SPAZI)(ESEM 
PIO: {RED) 1 2,198 3(BLU)) 

(PUR)(GIU*}":PRINTTAB(5): 

4060 INPUTM0,Y 

4080 PRINT"{ 2 GIU 1 }( 4 SPAZI} 

(BLU}GRAZIE! ADESSO":PRINT" 
(PUR) ACCENDI(BLU} LA STAMP 
ANTE" 

4085 PRINT'M 4 SPAZI)E DOPO SCRI 
VI":PRINTTAB(9)"(PUR}OK 
(GIU'}":INPUTR5 

4110 IFRSO "OK"THEN4 080 

4130 PRINT"(BLU)STAMPA(GIU*}" : FO 
RI«lTO800:NEXT:RETURN 

4999 PRINTI1,CHRS(15)" " 

5000 GOSUBl620 

5001 CLOSEl: END 

6000 ONXGOSUB2011,2021,2031,2041 
, 2051,2061,2071,2081,2091,2 
001 

6010 IFFLOl THENPRI NT! 1 ," " ; : RET 
URN 

6020 PRINT41FL*0: RETURN 

7000 ONXGOSUB201 2,2022,2032,2042 
,2052,2062,2072,2082,2092,2 
002 

7010 IFFLO1THENPRINT#1," "; :RET 
URN 

7020 PRINT#1,"":FL»0: RETURN 

8000 ONXGOSUB2013,2023,2033,2043 
,2053,2063,2073,2083,2093,2 
003 

8010 IFFLO1THENPRINT#1," ";:RET 
URN 

8020 PRINT# 1 , ” 11 : FL=0 : RETURN 


9000 ONXGOSUB2014,2024,2034,2044 
,2054,2064,2074,2084,2094,2 

004 

9010 IFFLOl THENPRINT# 1 ," "l« RET 
URN 

9020 PRINTI1,"":FL*0 : RETURN 
10000 ONXGOSUB201 5, 2025, 2035, 204 
5,2055,2065,2075,2085,2095 

,2005 

10010 IFFLOl THENPRINT»! ," " J : RE 
TURN 

10020 PRINT#1,"":FL»0:RETURN 
11000 ONXGOSUB2000,2111,2021,203 
1:PRINT#1," "; 

11010 ONX1GOSUB2000,2001,2011,20 

21.2031.2041.2051.2061.207 

1.2081.2091 

11020 IFFLOl THENPRINT# 1 ," 

{ 2 SPAZI}";: RETURN 
11030 FL“0:PRINT#1,"":RETURN 
12000 ONXGOSUB2000,2112,2022,203 
2:PRINT#1," "; 

12010 ONX1GOSUB2000,2002,201 2, 20 

22.2032.2042.2052.2062.207 

2.2082.2092 

12020 IFFLO1THENPRINT#1," 

( 2 SPAZI}"; : RETURN 
1 2030 FL*0:PRINT#1,"": RETURN 
1 3000 ONXGOSUB2000,21 1 3,2023, 203 

3 :PRINT#1," "; 

13010 ONX1GCSUB2000,2003,2013,20 

23.2033.2043.2053.2063.207 

3.2083.2093 

1 3020 IFFLOl THENPRINT# 1 ," 

( 2 SPAZI}";: RETURN 
13030 FL-0:PRINT#1,"":RETURN 
1 4000 ONXGOSUB2000,21 14,2024,203 

4 :PRINT#!," 




» wvjuot t luu't , zvj | 4 t 20 

24.2034.2044.2054.2064.207 

4.2084.2094 

14020 IFFLOl THENPRINT#1 , " 

* 2 SPAZ I RETURN 
FL " 0: PRINT#1 ,"": RETURN 

15000 ONXGOSUB2000,21 1 5, 2025,203 

5 :PRINT#1," 

15010 ONX1GOSUB2000,2005,2015,20 

25.2035.2045.2055.2065.207 

5.2085.2095 

15020 IFFLOl THENPRINT#! , " 

* 2 SPAZ I)";:RETURN 
15030 FL=0: PRINT*1RETURN 


Programma 3 

80 DIMMS(12) ,W$(7): FORI»1TOl2 : RE 
ADMS(I) :NEXTI: FORI » 1T07:READW 
$(I):NEXTI 


90 SYS65517:A=PEEK(781):IFA-40TH 
ENPOKE53281,1 

100 PRINT"(CLR}(GIU'}( 3 SPAZI} 
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QUESTO PROGRAMMA":PRINT" 

{ 6 DES}STAMPA UN" 

105 PRINT"{ 2 DES}{PUR}CALENDARI 
0 MENSILE{BLU}{GlU'}" 

110 PRINT"{ 6 DES}IMPOSTA IL":PR 
INT"{ 4 DES}{RED}MESE{BLU} E 

L'{RED}ANNO{BLU}" 

111 PRINT"{ 2 DES}CHE VUOI STAMP 
ARE":PRINT"{DES}(ESEMPIO: 
{RED}1 2,1 98 3{BLU}) {PUR} 

{ 2 GIU'}" 

120 PRINTTAB(5) ; :INPUTMO,Y 

130 PRINT"{ 2 GIU'}{ 4 SPAZI} 

{BLU}GRAZIE! ADESSO":PRINT" 
{PUR}ACCENDI{BLU} LA STAMPAN 
TE" 

131 PRINT" { 4 DES } E DOPO SCRIVI" 

:PRINTTAB(9)"{PUR}OK{GIU'}": 
INPUTR$ 

151 IFR$O"0K"THENl 30 
154 PRINT"{BLU}STAMPA{GIU'}":FOR 
1=1TO800:NEXT:GOSUB1292:OPEN 
1,4 

202 PRINT#1,CHR$(14)"{ 3 SPAZI} 

";M$(M0);" ";Y:GOSUB1 600 :GOS 
UBI 700 :FORD = lTOEl :Jl=Jl+1 
210 GOSUBl 050 :IFD<10THENG$ = " " 

213 IFD>=10THENG$="" 

214 IFDl=1THENPRINT#1,CHR$(15)" 

{ 3 SPAZI}"W$(Di);CHR$(1 4) G$ 

;"{RVS}"D"{OFF}";CHR$( 1 5) " ( " 

;Jl 

215 IFDl=1THENGOSUBl 600 

217 IFDl=1THEN220 

219 PRINT#!,CHR$(15)"{ 3 SPAZI} 
"W$(Di) ;CHR$(14)G$;D;CHR$(1 5 
) "(" ; Jl ;")GOSUBl600 

220 NEXTD 

1000 CLOSEl:END 

1 0 50 IFM0 = 1THENM0 = 13 :Y=Y-1 :GOTOl 
080 

1 060 IFM0 = 2THENM0 = 1 4 :Y-Y-l 
1080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y- 1 900 + 
INT((Y-1900)/4) 

1150 Di =Dl+INT(19/4)-2*19 
1 200 DI =Dl-INT(Di/7)*7 + 1 

1210 IFM0=4ORM0=9THENDl-Di+1 
1230 IFM0=13THENM0=1:Y=Y+1:GOT01 
245 

1240 IFM0=14THENM0=2:Y=Y+1 :Dl=Dl 

+ 1 

1 244 IFDl=8THENDl =1 
1 245 if(Y= 21OOANDMO> = 3)OR(Y>21 00 
)THENDl=Dl- 1 :IFDl=0THENDl=7 


1247 IF(Y=2200ANDM0>=3)OR(Y>2200 
)THENDl=D1-1 :IFDl=0THENDl=7 


1249 IF(Y=2300ANDM0>=3)OR(Y>2300 

)THENDl=Dl- 1 :IFDl=0THENDl=7 

1250 RETURN „ ,__ 

1292 IFM0=1ORM0=3ORM0=5ORM0-7ORM 

0=8ORM0=l0ORM0=l2THENE1=31 
1 293 IFM0 = 4ORM0 = 6ORM0 = 9ORM0 = l 1 TH 
ENEI=30 

1 294 IFM0 = 2 ANDY/40 INT ( Y/4 ) THENE 
1 =28 

1295 IFM0=2ANDY/4=INT(Y/4)THENGO 
SUBÌ 400 

1296 RETURN 

1400 IF(Y/100=INT(Y/l00))AND(Y/4 
00<>INT(Y/400))THENEl=2 8 :GO 
TOl410 
1405 El=29 
1410 RETURN 

1 600 FORI = lT02 0 :PRINT# 1 ,CHR$(15) 

" "; :NEXTI 

1 605 FORK=1TOl8 :PRINT# 1 " ; 

" "; :NEXTK:PRINT#1,"•" 

1610 RETURN 
1700 IFM0=1THENJl=0 
1702 IFM0=2THENJl=31 
1704 IFM0=3THENJl=59 

1706 IFM0=4THENJl=90 

1707 IFM0=5THENJl=120 
1709 IFM0=6THENJl=151 
1711 IFM0=7THENJl=181 
1713 IFM0=8THENJ1=212 
1715 IFM0=9THENJl=243 
1717 IFM0=10THENJ1=273 
1719 IFM0=11THENJl=304 
1721 IFM0=12THENJ1=334 

1 723 IFY/40 INT (Y/4) THENl 730 
1725 IF(Y/l00=INT(Y/100))AND(Y/4 
00< >INT(Y/4 00))THENGOTOl730 

1727 IF(Y/4=INT(Y/4))AND(M0>=3)T 
HENJ1=J1+1 
1730 RETURN 

2000 DATA"{ 2 SPAZI}GENNAIO"," F 
EBBRAIO","{ 4 SPAZ1}MARZO", 
"{ 3 SPAZI}APRILE"," 

{ 3 SPAZI}MAGGIO" 

2010 DATA"{ 3 SPAZI}GIUGNO"," 

{ 3 SPAZ1}LUGLIO"," 

{ 3 SPAZI}AGOSTO","SETTEMBR 
E","{ 2 SPAZI}OTTOBRE" 

2020 DATA" NOVEMBRE"," DICEMBRE" 

2030 DATA"{ 2 SPAZI}{RVS}DOMENIC 
A{OFF}","{ 4 SPAZ1}LUNEDI", 
"{ 3 SPAZI}MARTEDÌ"," MERCO 
LEDI","} 3 SPAZI}GIOVEDÌ" 

2040 DATA"{ 3 SPAZI}VENERDÌ"," 

{ 4 SPAZI}SABATO" 
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Programma 4 


3 SYS6551 7 :A=PEEK(781):IFA=40THE 
NPOKE53281,1 

5 0PEN1,4 :DIMW4(3)-.GOSUBl510:1 = 1 
: J=2 

7 PRINTfl,CHR$(14)SPC(15)"BUON " 
;Y:PRINTf1 

10 PRINTf1,CHR$(14)SPC(8)"GENNAI 
0"SPC(13)"FEBBRAIO" 

12 GOSUBl 009 :GOSUBl 000 :GOSUB1 012 
:C0=6:GOSUB1019:GOSUBlOOOrGOS 
UBI 022 

15 M0 = I:M8 = 1:GOSUB292 :GOSUB20:GO 
T035 

20 D=1:GOSUBl050:W2=8-D1:W4(M8)= 
W2+1:GOSUB321 
22 IFDl=7THEN30 

25 FORD=2TOW2:GOSUBl 050 :GOSUB331 
:NEXTD 
30 RETURN 

35 GOSUB990:M0=J:M8=2:GOSUB292:G 
OSUB20 

44 W3=l 

45 M0=I:M8=1:GOSUB292:GOSUB200 

46 IFW4(2)=9THENPRINT#1,CHR$( 1 5) 
SPC(1 ) ; 

50 GOSUB991:M0=J:M8 = 2:GOSUB292 :G 
OSUB200 

56 IFW3 = 1ANDW4(1)>9THENPRINT#1 ,C 
HR$(15)SPC(0); 

57 IFW3 = 1ANDW4(1)<10THENPRINT#1 , 
CHR$(15)SPC(1); 

58 IFW3 = 4ANDW4(2)>30THENPRINTf 1 , 
CHR$(15)SPC(0); 

65 W3=W3+1 

70 IFW3<C0THEN45 

71 PRINTfl," " 

72 IFI=1THEN86 

73 IFI=3THEN96 

74 IFI=5THENl06 

75 IFI=7THENl16 

76 IFI=9THENl26 

77 IFI=11THEN199 

86 PRINTfl,CHR$(14)SPC(9)"MARZO" 
SPC(15)"APRILE" 

88 1 = 3 :J=4:GOTO!2 
96 PRINTfl,CHR$(14)SPC(8)"MAGGIO 
"SPC(15)"GIUGNO" 

98 1 = 5 :J=6:GOT01 2 
106 PRINTfl,CHR$(14)SPC(8)"LUGLI 
0"SPC(15)"AGOSTO" 

108 1 = 7 :J=8:GOTOl2 
110 PRINT"{DESjPLEASE TYPE IN TH 
E":PRINT"{ 3 DES}{RED}MONTH 
{BLU} AND {RED}YEAR{BLU}" 

116 PRINTfl,CHR$(14)SPC(7)"SETTE 
MBRE"SPC(13)"OTTOBRE" 

118 I=9:J=10:GOTOl2 


126 PRINTfl,CHR$(14)SPC(7) "NOVEM 
BRE"SPC(13)"DICEMBRE" 

128 1 = 11 :J=12:GOT012 

199 PRINTfl,CHR$(15)SPC(1):CLOSE 
1 :END 

200 D4=W4(M8):D7=W4(M8)+6 

205 D=D4:GOSUBl050 

210 IFDl<>1THENPRINT"PERCHE' Di= 
";Dl 

212 IFM8=1AND(D+l)<1OTHENGOSUB52 
8 

213 IFM8=1AND(D+l)>9THENGOSUB530 

214 IFM8=2AND(D+l)<1OTHENGOSUB42 
8 

215 IFM8 = 2ANDD4> = 30ANDD4<=E1 THEN 
GOSUB433:GOT0217 

216 IFM8=2AND(D+l)>9THENGOSUB430 

217 FORD=D4+lTOD7:GOSUBl050:GOSU 
B331:NEXTD 

220 W4(M8)=D7+1 

225 RETURN 

292 IFM0 = 1ORM0 = 3ORM0 = 5ORM0 =7ORM0 
=8ORM0=l0ORM0=l2THENEI=31 

293 IFM0 = 4ORM0 = 6ORM0 = 9ORM0 = l1 THE 
NEI=30 

294 IFM0=2ANDY/4<>INT(Y/4)THENEI 
= 28 

295 IFM0=2ANDY/4=INT(Y/4)THENGOS 
UBI 400 

296 RETURN 

321 IFDl=7THENPRINTf1,CHR$(15)SP 
C (36);D;:GOTO330 

322 IFDl =6THENPRINTfl,CHR$(15)SP 
C(31);D;:GOTO330 

323 IFDl=5THENPRINTf1,CHR$(15)SP 
C(26);D;:GOTO330 

324 IFDl=4THENPRINTfl,CHR$(15)SP 
C(21);D;:GOTO330 

325 IFDl=3THENPRINTfl,CHR$(15)SP 
C(16);D;:GOTO330 

326 IFDl=2THENPRINTfl,CHR$(15)SP 
C ( 11);D;:GOTO330 

327 IFDl=1THENPRINTf1,CHR$(15)SP 
C(6);D;:GOTO330 

328 PRINTfl ,CHR$(15)SPC(3);D;:GO 
TO330 

329 PRINTfl,CHR$(15)SPC(2);D; 

330 RETURN 

331 IFD>E1THENPRINTf1,CHR$(15) SP 
C ( 5);:GOTO350 

332 IFDl=1ANDD<=9THENPRINTf1,D;: 
GOTO350 

333 IFDl=1ANDD>9THENPRINTf1,D;:G 
OTO350 

335 IFD<=9THENPRINTf1,CHR$(15)SP 
C(2);D;:GOTO350 
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336 PRINTfl,CHR$(15)SPC(1);D; 

350 RETURN 

428 IFD>E1THENPRINT#!,CHR$(15)SP 
C(9);:G0T0435 

429 G0T0328 

430 IFD>El THENPRINT#1 ,CHR$(15)SP 
C(9); :G0T0435 

431 G0T0329 

433 PRINT#1, CHR$(15)SPC(1);D; 

435 RETURN 

528 IFD>ElTHENPRINT#!,CHR$(15)SP 
C(9);:G0T0535 

529 G0T0532 

530 IFD>El THENPRINT#1 ,CHR$(15)SP 
C(9);:G0T0535 

531 G0T0533 

532 PRINT#1,CKR$(15)SPC(5);D;:GO 
T053 5 

533 PRINT#1,CHR$(15)SPC(4);D; 

535 RETURN 

990 PRINT#1 , CHR$(15)SPC(3); : GOTO 
992 

991 PRINT#1 ,CHR$(15)SPC(6) ; 

992 RETURN 

1 000 PRINT#1 ,CHR$(15)SPC(7) ; 

1001 RETURN 


1 009 PRINT#1 ,CHR$(15)SPC(3) ; 

1010 PRINT#1,"{ 4 SPAZI}D 

{ 4 SPAZI} L{ 4 SPAZI}M 
{ 4 SPAZI}M{ 4 SPAZI}G 
{ 4 SPAZI} V{ 4 SPAZI}S"; 

1011 RETURN 

1012 PRINT#!,"{ 4 SPAZI}D 

{ 4 SPAZI} L{ 4 SPAZI}M 
{ 4 SPAZI}M{ 4 SPAZI}G 
{ 4 SPAZI}V{ 4 SPAZI}S" 

1013 RETURN 

1019 PRINT# 1 ,CHR$ (1 5) SPC(3) ; 

1020 PRINT#1,"{ 4 SPAZI}[<T>] 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 
[<T>]{ 4 SPAZI}[<T>] 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 
[<T>]{ 4 SPAZI}[<T >]"i 

1021 RETURN 

1 022 PRINT#1 »"{ 4 SPAZI}[<T>] 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 
[<T>]{ 4 SPAZI}[<T>] 


{ 4 SPAZI} [<T>]{ 4 SPAZI} 
[<T>]( 4 SPAZI} [<T>]" 

1023 RETURN 

1 050 IFM0 = 1THENM0 = 13:Y=Y-1: GOTO1 
080 

1 060 IFMO = 2THENM0 = 14 :Y=Y-1 
1080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y-1 900 + 
INT((Y-1900)/4) 

1150 Di=Dl+INT(19/4)-2*19 
1200 Di=D1-INT(Dl/7)*7+1 
1210 IFM0=4ORM0=9THENDl=Dl+1 
1230 IFM0=13THENM0=1:Y=Y+1:GOTOl 
250 

1 240 IFM0 = 14THENM0 = 2 :Y=Y+1: Di=Dl 
+ 1 

1244 IFDl=8THEND1=1 

1245 IF(Y=2100ANDM0>3)OR(Y>2100) 
THENDl=Dl-1 :IFDl=0THENDl=7 

1247 IF(Y=2200ANDM0>3)OR(Y>2200) 
THENDl=Dl-1 :IFDl=0THENDl=7 

1249 IF (Y=2300ANDMO>3)OR(Y>2300) 
THENDl=Dl- 1 :IFDl =0 THENDl =7 

1250 RETURN 

1400 IF(Y/l00=INT(Y/l00))AND(Y/4 
OOO INT ( Y/4 00) ) THE NEI =28:GO 
TOl410 
1405 El=29 
1410 RETURN 

1510 PRINT"{CLR}{GIU'}{ 3 DES}QU 
ESTO PROGRAMMA":PRINT" 

{ 6 DES}STAMPA UN" 

1520 PRINT"{ 2 DES}{PUR}CALENDAR 

10 ANNUALE}BLU}{GIU'}" 

1530 PRINT"{ 3 DES}IMPOSTA L' 

{ PUR } ANNO { BLU } " : PRI NT "' 

{ 2 DES}CHE VUOI STAMPARE" 
1535 PRINT"{ 3 DES}(ESEMPIO: 

{PUR}1 984{BLU} ) { 2 GIU'1":P 
RINTTAB(6);:INPUTY 
1570 PRINT"{GIU'}{ 4 DES}GRAZIE! 

ADESSO":PRINT"{DES}{PUR}AC 
CENDI{BLU} LA STAMPANTE" 
1573 PRINT"{ 4 DES}E DOPO SCRIVI 

11 

1575 PRINTTAB(9)"{PUR}OK{BLU} 
{GIU'}" 

1580 INPUTR? 

1585 IFR$<>"OK"THENl570 
1590 PRINT"STAMPA}GIU'}":FORI=lT 
0800 : NEXT:RETURN 
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Creatore 
di caratteri 


Questo programma di utilità pratica controlla¬ 
to da menù facilita la creazione, correzione, 
e registrazione dei caratteri personalizzati. Inol¬ 
tre, il programma provvede a calcolare le istru¬ 
zione DATA per i vostri nuovi caratteri e vi per¬ 
mette di rivederli in uno qualsiasi dei colori del 
C64. 

Questo programma che genera caratteri spo¬ 
sta il set completo dei caratteri (256) all'inter¬ 
no della RAM e prepara lo schermo in modo 
che possiate facilmente ridefinirli. Si possono 
ridefinire fino a 128 caratteri per volta. Tutta¬ 
via, i caratteri in negativo (reverse), non pos¬ 
sono essere ridefiniti senza modificare questo 
programma. 

Viene tracciata sullo schermo una griglia 8x8. 
Usando i tasti di controllo cursore, potete di¬ 
segnare qualsiasi carattere che vogliate creare. 
Tramite comandi ad un solo tasto, che vengo¬ 
no tutti elencati a fianco della griglia sullo scher¬ 
mo, si possono opportunatamente gestire i 
caratteri. 

Quando avete realizzato il carattere voluto, il 
comando D vi mostrerà le istruzioni DATA con¬ 
tenenti i valori numerici necessari per crearlo. 
Dopo aver ridefmito tutti caratteri voluti (fino 
a 128), potete registrarli sotto forma di archi¬ 
vio dati usando il comando S. I dati necessari 
per creare i caratteri saranno preceduti dal nu¬ 
mero totale di caratteri registrati nell'archivio 
dati in questione. Il codice corrispondente pre¬ 
cederà i dati necessari alla realizzazione del 
carattere stesso. 

In una successiva esecuzione del programma, 
potete caricare tutti i caratteri registrati in un 
archivio dati utilizzando archivi su nastro. Se 
possedete una unità dischi, sostituite sempli¬ 
cemente le seguenti righe: 

5 POKE52,56:POKE56,56:CLR:PRintc 

HR$(142) - 

10 DIMA(8,8) ,D%(127,8) ,C$(15) ,K% 
(127):L=0:CH=0:F=0 


640 IF AÌ="L"THEN OPENI, 8,0,N$: 
GOT0900 

640 OPEN, 1,8,1 ,N$:GOTO800 
Quando il programma viene mandato in ese¬ 
cuzione, dopo che il set di caratteri della ROM 
è stato trasferito alla RAM e lo schermo è sta¬ 
to preparato, il programma inizializza il coman¬ 
do C (scegli un carattere). Se volete caricare 
prima caratteri definiti precedentemente, sce¬ 
gliete un qualsiasi carattere per tornare al me¬ 
nù principale, quindi scegliete il comando L 
(LOAD = caricamento). 

Mentre il programma è in esecuzione, potete 
vedere il carattere che state creando in formato 
multicolore (Multi Color Mode = MCM) trami¬ 
te il comando M (= Multicolore attivato). Tutti 
i caratteri che compaiono sullo schermo saran¬ 
no in formato multicolore. 

Tuttavia, solo il carattere che state creando, 
e che viene mostrato alla locazione di memo¬ 
ria shermo 1731, cambierà di colore premen¬ 
do F7. Ciò avviene perché il tasto di funzione 
F7 cambia solo la locazione di memoria colore 
56003, che contiene l'informazione riguardante 
la locazione di schermo 1731 per ciò che con¬ 
cerne il colore. 

Inoltre, mentre si è in MCM, il carattere nde- 
fmito perché sia in formato multicolore deve 
avere un codice colore compreso fra 8 e 15, 
all interno della RAM colore (CRAM = Color 
Random Access Memory). Vale a dire, se il co¬ 
dice colore è compreso tra 8 e 15 (dall'aran- 
cio al grigio-3) nella CRAM, le coppie di bit del 
carattere cambieranno colore in accordo con 
i colori di fondo da 0 a 2. Tuttavia, se il codice 
colore della CRAM è compreso tra 0 e 7 (da 
nero a giallo), il carattere ridefmito verrà mo¬ 
strato interamente in quel colore. 


12 X=0:Y=0:R=0:C=0 :CM=14336:ra-s 
6334:V=53248:S=1411 
15 iff=othenprint"(clr){giu 1 } 

{ 7 SPAZI) PRONTO IN CIRCA 40 
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SECONDI" 

20 RESTORE:FORX=0TO15 :READC$(X): 
NEXT 

21 FORR=1T08:FORC=1T08: A ( R, C )= 46 
:NEXTC,R 

25 C0=PEEK(V+33)ANDl5:C1=PEEK(V+ 
34)ANDl5 

27 CL=PEEK(V+2755)ANDl5:C2=PEEK( 
V+35)ANDl5 
29 IFL>0ORF=lTHEN39 
31 POKERA,(PEEK(RA)AND254):POKEl 
,PEEK(1)AND2 51 

34 FORI = 0TO2 55 :FORJ = 0TO7:POKECM+ 
I*8+J,PEEK(V+I*8+J):NEXTJ,I 

36 POKE1,PEEK(1)OR4:POKERA,PEEK( 
RA)ORI 

37 POKEV+24, (PEEK(V+24)AND240) OR 
1 4 

39 PRINT"{CLR}"SPC (17)"IN FORMAT 
0 MULTI-COLORE" 

40 PRINT"REGISTRO COLORE DELLE C 
OPPIE DI BIT DEL"; 

41 PRINT"{ 9 SPAZI}GENERATORE DI 

CARATTERI" 

48 PRINT" *{ 2 SPAZI}ATTIVA IL P 
IXEL{ 7 SPAZI}00{ 6 SPAZI}BKG 
#0" 

50 PRINT" -{ 2 SPAZI}DISATTIVA I 
L PIXEL{ 4 SPAZI}01 

{ 6 SPAZI}BKG#1" 

51 PRINT" Fi BKG#0-"C$(CO)TAB(26 
)"10{ 6 SPAZI}BKG#2" 

52 PRINT" F3 BKG#1-"C$(CI)TAB(26 
)"11{ 6 SPAZI}CRAM" 

54 PRINT" F5 BKG#2-"C$(C2) 

56 PRINT" F7 CRAM -"C$(CL) 

58 PRINT" ={ 2 SPAZI}CALCOLA I C 
ARATTERI" 

60 PRINT" D{ 2 SPAZI}DATI" 

61 PRINT" 0{ 2 SPAZI}DISATTIVA M 
ULTI-COLORE" 

62 PRINT" N{ 2 SPAZI}CANCELLA LO 

SCHERMO" 

63 PRINT" M{ 2 SPAZI}ATTIVA MULT 
I-COLORE" 

64 PRINT" R{ 2 SPAZI} REGISTRA I 
CARATTERI" 

66 PRINT" L{ 2 SPAZI}CARICA I CA 
RATTERI" 

68 PRINT" C{ 2 SPAZI}CANCELLA I 
CARATTERI" 

69 PRINT" -{ 2 SPAZI}INTERROMPE 
IL PROGRAMMA" 

70 PRINT" F{ 2 SPAZI}FINE" 

80 POKES-40 + 1 , 76 :POKES-40+2,1 22: 
POKES-40 + 3,76 :POKES-40+4,1 2 2: 
POKES-4 0 + 5,76 

81 POKES-4 0+6,1 2 2:POKES-40+7,76: 
POKES-40+8,122 


82 FORR=0TO7:POKES+C+R*4 0,84 :NEX 
T 

84 FORC=C-lTOlSTEP-1:POKES+C+R*4 

0,69:NEXT 

86 FORR=R-1TOOSTEP-1:POKES+C+R*4 
0,89:NEXT 

90 Y=0 :FORR=1T08:FORC=1T08:Y=Y+l 
:POKES+Y,A(R,C):NEXT:Y=Y+32:N 
EXT 

95 Y=1:X=1:GOTO300 
100 GETA$:IFA$=""THENl00 
110 R=S+X+( Y- 1 )*40:C=A(Y,X):POKE 
R C 

120 IFA$ = "{GIU'}"THENY=Y+1 :IFY>8 
THENY=1 

130 IFA$ = "{SU}"THENY=Y-1:IFY<1TH 
ENY=8 

140 IFA$ = "{DES}"THENX=X+1 :IFX>8T 
HENX=1 

150 IFA$="{SIN}"THENX=X-1:IFX<1T 
HENX=8 

160 IFA$="-"THENA(Y,X)=46 
170 IFA$="*"THENR=42:A(Y,X)=R 
180 IFA$ = " = "THEN4 00 
190 IFA$="D"THEN500 
200 IFA$="N"ORA$="F"ORA$="-"ORA$ 
="L"ORA$="R"THEN600 
205 IFA$="M"THEN580 
207 IFA$ = "O"THEN590 
210 IFA$="C"THEN700 
220 IFA$ = "{Fi }"THENR=33:GOTO520 
2 30 IFA$ = "{F3}"THENR=34:G0T0520 
2 40 IFA$ = " { F5 } "THENR -1 3 5 : GOTO520 
2 50 IFA$ = "1:7}"THENR=2755: GOTO52 
0 

300 R=S+X+(ì 1 ; *40:C=A(Y,X)+128: 

POKER/C:IFF=0THEN700 
305 GOTOl00 

400 FORY=0TO8:D%(L,Y)=0:NEXT:CH= 

1 

401 FORY=lT08:FORX=1T08:PIX=A(Y, 
X)-42:IFPIX>0THENPIX=0:GOTO4 
20 

410 PIX=1 

420 D%(L,Y)=D%(L,Y)+PIX*2t(8-X) : 
NEXTX,Y 

430 FORY=0TO7:POKECM+8*K%(L)+Y,D 
%(L,Y+1):POKEl888,K%(L):NEXT 
:G0T095 

450 PRINT" {HOME} { 21 GIU'HRVS}" 
A$": SI O NO {OFF} 

{ 21 SPAZI}" 

4 60 FORX=1TOl0:GETN$:NEXT 
470 GETN$:IFN$ = ""THEN470 

480 PRINT"{SU}{ 16 SPAZI}{SU}":I 
FA$="N"ORA$="F"ORA$="-"ORA$= 
"L"ORA$="R"THENRETURN 

481 IFN$="S"THENl2 
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482 IFN$ = "N"THENPRINT"{GIU 1 }PER 
RIPARTIRE, BATTI GOTO 12":ST 
OP 

490 PRINT"{RVS}{HOME}{ 6 GIU'JCO 
NTINUAZIONE":G0T04 60 
500 PRINT"{CLR}{GIU'}{DESjDATI"; 

:FORY=1T08:PRINTD%(L,Y)" 
{SIN},";:NEXT:PRINT"{SIN} " 
510 PRINT"{GIU'}PER OTTENERE IL 
CODICE TASTI="K%(L):GOTO490 
520 C=PEEK(V+R)AND!5:C=C+1:IFC>1 
5THENC=0 

530 POKEV+R,C:PRINT"{HOME} 

{ 6 GIU'}";:IFR=33THENC0=C:G 
OTO570 

540 PRINT"{GIU'}";:IFR=34THENC1= 
C: GOTO 570 

550 PRTNT"{GIU'}";:IFR=35THENC2= 
C:GOTO570 

560 PRINT"{GIU'}";:CL=C 
570 PRINT"{ 10 DES}"C$(C)" 

{ 6 SPAZI}":GOTO300 
580 POKEV+2 2,PEEK(V+22)ORI 6 : GOTO 
300 

590 POKEV+22,PEEK(V+22)AND2 39 :GO 
TO300 

600 GOSUB4 50:IFN$<>"S”THEN95 
610 GETN$:GETN$:IFA$ = "N"THEN12 
620 IFA$ = "F"THENPOKEV+2 4,21 :POKE 
V+22,PEEK(V+22)AND239:END 
625 IFA$ = " *-"THENPRINT" {GIU' } PER 
RIPARTIRE, BATTI GOTO 12":ST 
OP 

630 PRINT"{CLR}":INPUT"NOME DELL 
'ARCHIVIO CARATTERI ";N$:PRI 
NT 


64 0 IFA$ = "L"THENOPENl,1,0,N$:GOT 
0900 

645 OPENl,1,1,N$:GOTO800 

700 PRINT"{HOME}{ 20 GIU'} {RVS} 

{ 2 SPAZI}PREMETE IL TASTO C 
HE VOLETE CAMBIARE 
{ 2 SPAZI}{OFF}":F=1 
705 IFCH=1THENL=L+1:CH=0 
710 GETA$:IFA$=""THEN710 
720 POKEl 6385,ASC(A$) :K%(L)=PEEK 
(16385)ANDl91:IFK%(L)>64THEN 
K%(L)=K%(L)-64 
722 POKEl888,K%(L) 

725 PRINT"{SU}CODICE DEL TASTO=" 
K%(L)"{SIN}{ 2 SPAZI}" 

730 PRINT"{ 30 SPAZI}":IFL=0THEN 
1 00 

735 FORY=OT08:FORX=OTO8:A(Y,X)=4 
6:NEXTX,Y:GOTO90 
800 PRINT#1,L 

802 FORY=OTOL:PRINT#1 ,K%(Y):FORX 
=1T08:PRINT#1,D%(Y,X):NEXTX, 
Y:CLOSEl:GOT012 

900 INPUT#1,L:FORY=OTOL: INPUT#1, 
K%(Y):FORX=1T08: INPUT#1,D%(Y 
,X):NEXTX,Y:CLOSEl 
910 PRINT"STO CALCOLANDO I CARAT 
TERI " 

320 FORY=OTOL:FORX=1T08:POKECM+ 8 
*K%(Y)+(X-1),D%(Y,X):NEXTX,Y 
:GOTOl2 

1000 DATANERO,BIANCO,ROSSO,BLU V 
ERDE,PORPORA,VERDE,BLU,GIAL 
LO,ARANCIO 

1010 DATAMARRONE,ROSSO CHIARO,GR 
IGIO 1,GRIGIO 2,VERDE CHIAR 
O,AZZURRO,GRIGI03 
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Istogrammi 
a barre 


'Istogrammi a barre' è un buon esempio di ciò 
che i programmatori alla prime armi possono 
ottenere in fatto di grafica sul Commodore 64. 
Per realizzare questo programma sono state 
utilizzate diverse tecniche grafiche. 
‘Istogrammi a barre' crea attraenti grafici a 
barre con colonne tridimensionali. I grafici so¬ 


100 PRINT"{CLR}":POKE53281,0:POK 
E532 80,6 

ITO FORI = 1 2 30TO1261 : POREI,114 : PO 
KEI+54272,5:NEXT: REM ALTO 
120 FORI = 1 270TO1 790STEP40:POKEI, 
107:POKEI + 542 72,5 :NEXT: REM S 
INISTRA 

130 FORI = l301TOl821STEP40 :POKEI, 
115:POKEI+ 54 2 72,5 :NEXT: REM D 
ESTRA 

140 FORI = 183OTOl861 :POKEI,113:PO 
KEI + 54272,5:NEXT: REM BASSO 
150 FORI = 1351TOl 380 :POKEI,67 :POK 
EI+54272,5:NEXT 

160 FORI=l471TOl500:POKEI,67:POK 
EI+54272,5:NEXT 

170 FORI=l591TOl620:POKEI,67:POK 
EI+54272,5:NEXT 

180 FORI=1711TOl740:POKEI,67:POK 
E1 + 54272,5:NEXT:PRINT:PRINT: 
PRINT 

190 PRINT:PRINTSPC(4)"15":PRINTS 
PC(4)"14":PRINTSPC(4)"11":PR 
INTSPC(4)"12" 

200 PRINTSPC(4)"11":PRINTSPC(4)" 

10":PRINTSPC(5)"9":PRINTSPC( 
5) "8" 

210 PRINTSPC(5)"7":PRINTSPC(5)"6 
":PRINTSPC(5)"5":PRINTSPC(5) 

ii 4 ii 

220 PRINTSPC(5)"3":PRINTSPC(5)"2 
":PRINTSPC(5)"1":PRINTSPC(5) 
"0" 

230 PRINTTAB(9)"A"SPC(4)"B"SPC(4 
)"C"SPC ( 4)"D"SPC(4)"E"SPC(4 ) 

ii pii 

240 IFZ$="S"THEN31 0 
250 DATAA,B,C,D,E,F 
260 FORI=1T06:READA$(I):NEXTI 


no particolarmente interessanti per ciò che ri¬ 
guarda i colori. Sono disponibili sei colonne di 
diverso colore, a cui si può assegnare un valo¬ 
re da 0 a 15 per l'altezza della colonna. Pote¬ 
te fornire al calcolatore il valore assegnato a 
ciascuna colonna, e quindi interpretarne il 
significato. 


270 DATA7,6,4,13,8,14 

280 FORI=lT06:READD(I):NEXTI 

290 DATAI 792,1 797,1 802,1 807,1 81 2 

,1817 

300 FORI=lT06:READA(I):NEXTI 
310 C=54272:F0RJ=1T06 
320 FORK= 1 971 TOl 975 :POKEK,32 :NEX 
TK:PRINT"{HOME}":FORL=lT022: 
PRINT:NEXTL 

330 PRINT"VALORE PER LA COLONNA 
";A$(J);" (0-15)"; 

340 INPUTA$:IFVAL(AS)=0THEN320 
350 AA=VAL(A$):AA=INT(AA+.5):D=D 
(J):X=A(J) 

360 IFAA<OORAA>15THEN320 
370 A=A(J) -(AA* 4 0)+80 :GOSUB4 30 :N 
EXTJ 

380 PRINT"{HOME}": FORI = 1T02 2 :PRI 
NT :NEXT:FORI = 1971 TOl 98 3:POKE 
I, 32-.NEXT 

390 PRINT"VUOI FARNE UN ALTRO (S 
/N){ 3 SPAZI}" 

400 GETZ$:IFZ$ = ""THEN400 
410 IFZ$="S"THEN100 
420 END 

430 IFAA=1THEN530 
440 IFAA=0THENRETURN 
450 POKEX,160 :POKEX+1,231:POKEX+ 
2,105 

460 POKEX+C,D:POKE(X+l)+C,D:POKE 
(X+2)+C,D:IFAA=2THEN490 
470 FORI=X-40TOASTEP-40:POKEI,16 
0 :POKEI + 1,2 31:POKEI + 2,160 
480 POKEI+C,D:POKE(1+1)+C,D:POKE 
(1+2)+C,D:NEXTI:GOT0510 
490 POKEA,247:POKEA+l,208:POKEA+ 
2,105 

500 POKEA+C,D:POKE(A+1)+C,D:POKE 
(A+2)+C,D:GOTO530 
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510 POKEA,247 :POKEA+1 , 208:POKEA+ 
2,224 

520 POKEA+C,D:POKE(A+l)+C,D:POKE 
( A+2)+C,D 


530 POKEA-4 0,233:POKEA-39,1 60 : PO 
KEA-38,206 

540 POKE(A-40)+C,D:POKE(A-39)+C, 
D:POKE(A-38)+C,D 
550 RETURN 
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Cod. ASOC004 


L. 18.000 

compresa la cassetta allegata 


